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People productivity. It’s more important than ever. 
And a good database system can mean real 
productivity. 

USER -11 is a high-performance database system. 

It is a fact: Software designed with USER-11 is 
built more quickly, operates more reliably, and 
performs better than other software techniques. 

USER-11 is unique. It’s easy to install. Easy to 
learn. And easy to apply. Adaptive tools and a 
standard approach ensure that maintenance is 
easier than ever. 

A key to USER-11 ’s success is its powerful, 
dictionary-based modules. Software developers 
simply describe and assemble these modules to 
create custom business packages—at an 
unprecedented rate. 


Naturally USER-11 is supported with excellent 
documentation and a variety of training options 
for beginner to expert. Our commitment is to your 
complete satisfaction. 

Whether you are a software provider or a software 
user, we guarantee you will be delighted. 

Ask us about USER-11 and our family of business 
software products, or better yet, ask a 
productive USER! 

North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(619) 745-6006, Telex: 182773 

•USER-11 is currently available for DEC computers 
using the RSTS and VMS operating systems. 
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RossS^stems 
has perfected 
theArtof 
Distribute 
Ftmneiaf 
Modeling 


WlAPS/PRG'is the most 
effective method for 
distributing ftnanrktmodeling 
solutiom throughout the levels 
of your company. 


Designed exclusively for the DEC* 
Professional 350 niicrocompi> 
ter, MAPS/PRO, together 
with MAPS/Host™ provides 
company-wide solutions to a wide 
range of common financial planning 
problems. Like inter-departmental 
budgeting. Divisional roll-ups. Even 
pro forma forecasting. 

It’s the first financial modeling lan¬ 
guage that uses fuUy-compatible 
mini and microcompu 
ter data and model 
formats. Equally im¬ 
portant, MAPS/PRO 
offers you instant avail¬ 
ability. So you don’t have 
to wait in fine for the corpo 
rate mainframe. 

MAPS common financial plan¬ 
ning language and sharable finan¬ 
cial data base lets you work 
independently at your own micro. 
So you can develop models and 
data on your Pro 350 computer. 
Easily transfer them to your VAX* 
or PDP-11* minicomputer. And run 
them under MAPS/Host. Without 
costly and time-consuming changes. 
You are productive . . . right away. 


MAPS/PRO is easy to use, too. It’s 
completely interactive and menu- 






driven. It offers visual 
tools like data entry screens 
and business graphics. And extensive 
on-line HELP is available whenever 
you need it. 


*DECy VAX, PDF, Pro, and Professional are 
registered trademarks of Digital Equipment 
Corporation. 


£r 

ROSS SYSTEMS 


1860 Embarcadero Road 
Palo Alto, CA 94303 
Regional Offices in San Francisco, 
New York, Dallas, Los Angeles. 


*MAPS, MAPS/PRO and MAPS/Host are reg¬ 
istered trademarks of Ross Systems, Incorporated. 


Isn’t it time you took a look at the 
state-of-the-art in distributed finan¬ 
cial planning software? It’s easy. 
Just call Ross Systems toll free at 
(800) 547-1000 (in California, call 
(415) 856-1100). 
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Summoning 
Solutions 
DIGICALC v.1.r" 



# / 

l'^ 






oO^ 

<y 

(f 


DIGICALC 1.2 brings new dimensions to the DEC system user. This 
truly advanced version has immense capacityfor spreadsheets that 
generate budgeting, financial modeling, project management 
and many types of analyses. This most flexible software is the per¬ 
fect combination of procedural and non-procedural language. 
Once learned, the scientific concept of pattern recognition that has 
been designed into the keypad aids recall for professionals and 
executives with little computer experience. No other program for 
DEC equipment has such extensive HELP built in. The user is in 
command and can define functions, consolidate multiple spread¬ 
sheets ... even integrate with existing systems on a multi-user 
level. 

With over 400 copies installed and 8000 users world wide, a sim¬ 
ple call to WHY Systems will give you finger tip access to the more 
perfect power of DIGICALC^ 1.2. Runs on VAXA/MS* PDP-11 *and 
RSTS/E.* 

Seeking Solutions ... Mankind Asks WHY 

16902 Redmond Way, Redmond, WA 98052 U.SA. (206) 881-2331 
‘Registered trademarks of Digital Equipment Corporation 
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RSTS/E DISK OPTIMIZATION IN A MULTI-USER ENVIRONMENT . 8 

William R. Davy 

Disk optimization — everyone wants it. There are many sources of such programs, this is 
just one. 

THERSTS PRO VISITS THE NATIONAL COMPUTER CONFERENCE.20 

Carl B. Marbach 

COMPILE.BAS: Compilation Aid for Basic Plus Two .21 

Alexander Ehrlich 

Ever tie up your terminal doing a BASIC PLUS-2 compile? Is your account filled with 
unknown .DDLs and .OBJs? Stop here, even if you skipped the prior article. 

THE HISTORY OF RSTS.24 

Peter Dick 

From England we have this short history of a long subject by one of our favorite 
Englishmen. Peter is too young to have been around when ail this really started. Thank 
goodness: if he had been it might never have happened this way. 

QUEUING TO A SPECIFIC DEVICE —QUEDEV.B2S.28 

Terry G. Ridgers 

The title tells all. 

WATCH & RING ME .31 

Maury Pepper and Greg Wenzel 

Want to know when your batch job is done? 

MEMO: A Computerized Note File.32 

Mark Gilmore 

I can’t live without word processing: Mark couldn't live without his computerized notebook 
with an index. 

HOW TO USE SHAREABLE DATA.40 

Ken Isaacs 

When V7.0 was introduced we knew that there were some terrific ideas just waiting to 
burst out. This is one of them. 

TIPS & TECHNIQUES — Monitoring Free Disk Space .52 

Steven L. Edwards 

Everyone who has NOT run out of disk space please go to the next article. 

THE VAX SCENE 

USING VAX COMMAND PROCEDURES.55 

Bob Meyer 

ACCTNG.B2S: System-Wide Resource Accounting System for RSTS/E.62 

Philip Hunt 

Keeping better track of who does what, with which and to whom can be a difficult task 
under RSTS. This doesn’t do all that, but it will help the accounting system. 

RSTS/E MULTITERMINAL INPUT/OUTPUT SERVICE .66 

Michael H. Koplitz 

A RSTS "feature" that is not well understood is explained in detail. Beware: Multi-TTY ser¬ 
vice can be dangerous to your health. 

A MENU MANAGEMENT PROGRAM .70 

R. David Broom 

■’MENUS" are getting more popular. Even DEC sells one. The design and implementation of a 
MENU system is an interesting task. Here is one tale. 
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From the publishers ... 


RSTS/VAX PROFESSIONAL?? 

Carl B. Marbach & Dave Mallery 

As of the next issue, we have 
decided to change our flagship publica¬ 
tion's identity. The August issue will be 
officially titled "RSTS/VAX PROFES¬ 
SIONAL" It will have more articles of 
interest to VAX people and feature 
several new authors who will continue 
to improve our editorial content. 

We want to take this opportunity 
to explain our choice to you. our loyal 
RSTS crew. Like any business decision, 
this change of name is based on a 
change of realities. What realities? 

Reality 

The population is shifting. Grow¬ 
ing. but shifting. Not exactly lemmings 
marching to the sea. but if you go to 
DEC with $200,000 and tell them you 
want a computer, you get a VAX 
11 /750 every time. 

Reality »2 

Your PDP-11 is getting older. 
There is no 11 /70 replacement (yet). 
You can’t wait forever. Service and 
electricity are only going up. The 
J-11(11/70 chip) seems always just 
over the horizon and probably will 
emerge as a board-level machine with 
very different characteristics, more in 
keeping with DEC’S overall marketing 
strategy. In other words, don’t expect 
any great new exciting PDP-1 Is in the 
near future; They will slowly evolve to 
be smaller, faster and cheaper, but 
there will not be the PDP-11 /90. 

Reality ^3 

More and more of you. our readers, 
are moving on to the VAX/VMS and 
frankly, we hate to see you go. Maybe 
even worse, there are VAX people com¬ 
ing into the world without ever having 


known the RSTS PROFESSIONAL. 

Reality ^4 

We thought of calling ourselves 
THE INTERACTIVE PROFESSIONAL, the 
magazine for Digital technical com¬ 
puter users. A technical journal is what 
we set out to be: and we want to be a 
technical journal for all of us who 
know and love our DEC computers. We 
realize that a large number of new DEC 
users are now VAX oriented and we 
need to include them in not only our 
readership, but to count the among our 
contributors. 

This is not a magazine for a small 
clique of gurus. It can and will serve a 
much larger audience. The more of us 
there are. the more we can share, and 
the greater our collective clout will be. 

Five years from now. RSTS will be 
thriving — in numbers that are 
unimaginable right now. However, it 
will be the mainstream 0/S of the 
new’ PDP-11 line: 

The PRO 3xx 

The MlCRO-11 

The (MACRO-11??) 

(sorry but your 44 is obsolete ...) 

Most of the hosts’ in this brave 
new. distributed world will be VAX. 
RSTS will live happily in the box under 
your desk. 

Most of us. willing or not. will be 
faced with VAX in our everyday work. 
Now is a great time to start; sharing if 
you already know, learning if you are 
new. and growing as we all must to 
keep up with the exciting world we 
work and live in. 

So come with us. Start to give 
VAX a heart! f 



PROFESSIONAL 



Publishers: R.D. Mallery. Carl B. Marbach 
Managing Editor: James L Trichon 
Director of Advertising: Helen B. Marbach 
Business Manager: Peg Leiby 
Assistant to the Editor: Hope Makransky 
Editoriai Assistant: Linda DiBiasio 
Production Manager: Georgia Conrad 

Subscription Fulfillment: 

Kathi B. Campione. Claire Hollister 
Steven Barsh. Margie Pitrone 
Connie Mahon 

United Kingdom Representative: 

Pauline Noakes 

RTZ Computer Services Ltd.. P.O. Box 19 
1 Redcliff Street. Bristol. BS99-7JS 
Phone: Bristol 24181 

Mid-Atlantic Representative: 

Ed Shaud 

P.O. Box 187. Radnor. PA 19087 
Phone: 215/688-7233 

N.Y. & New Engiand Representative: 

Jack Garland 

P.O. Box 314 S.H.S.. Duxbury. MA 02332 
Phone: 617/934-6464 

Contributors: 

R. David Broom. William R. Davy. 

Peter Dick. Steven L Edwards. 

Alexander Ehrlich. Mark Gilmore. 

Philip Hunt. Ken Isaacs. 

Michael H. Koplitz. Bob Meyer. 

Maury Pepper. Terry G. Ridgers. 

Greg Wenzel. 

Cartoons: Frank Baginski. Emily Dahlstrom. 

Brian Hansen 

Design. Typesetting & Layout: Grossman Graphics 
Printing & Binding: Schneider Litho Co.. Inc. 

Cover Photo: David Sheppard 
Cover Model: Margie Pitrone 


ALL PRCKIRAMS PUBLISHED IN THE RSTS PROFESSIONAL ARE 
WARRANTEED TO PERFORM NO USEFUL FUNCTION. THEY ARE 
GUARANTEED TO CONTAIN BUGS. THEY ARE DESIGNED TO GET 
YOU THINKING. THEY ARE INTENDED TO EDUCATE AND 
ENTERTAIN. THEY ARE PUBLISHED ON THE PREMISE THAT IT IS 
BETTER TO SPREAD PEOPLES' BEST EFFORTS AROUND EVEN IF 
THERE IS AN OCCASIONAL PROBLEM. IF YOU USE THEM. MAKE 
THEM YOUR OWN. AND YOU WILL NOT GO WRONG. 


Editorial Information: We will consider for publication all 
submitted manuscripts and photographs, and welcome 
your articles, photographs and suggestions. All material 
will be treated with care, although we cannot be 
responsible for loss or damage. (Any payment for use of 
material will be made only upon publication.) 


•This magazine is not sponsored or approved by or 
connected in any way with Digital Equipment Corpora¬ 
tion. ‘ RSTS" and "DEC" are registered trademarks of 
Digital Equipment Corporation. Digital Equipment Corpo¬ 
ration is the ovmer of the trademarks “RSTS ” and "DEC" 
and is the source of ail “DEC" products--. 

Material presented In this publication in no way 
reflects the specifications or policies of Digital 
Equipment Corporation. All materials presented are 
believed accurate, but we cannot assume responsibility 
for their accuracy or application. 
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WHAT YOU DON'T KNOW 
ABOUT YOUR DISKS IS 
COSTING YOU MONEY 



If your disk looks like this, you’re wasting system performance. 



If your disk looks like this, you’re using DISKIT. 


When the job you’re running requires reading the 
“red” file, it naturally happens faster on a well- 
ordered disk. Disks become “fragmented” as you 
use your computer. The system slows down. And 
that costs you money. 

Now, you can restructure your disks and get back 
that lost performance (up to 50%) without spending 
a dime on new hardware. DISKIT is the original 
software system that makes this possible. 

But don’t confuse DISKIT with other system 
utilities, DISKIT is a complete “software tool kit” 
that optimizes your RSTS/E system. 


DISKIT Is: 

• DSU — The utility which restructures the infor¬ 
mation on your disk, making data fast and easy 
to access. 

• DIR — The incredible directory tool that finds 
files at the rate of 400 per second. 

• RDR — Reorders disk directories 30 times faster 
than ever before possible. 

• OPEN — Displays complete job statistics and 
file activity so you can see what your system is 
doing. 

• DUS — The set of CALLable subroutines which 
pre-extend file directories, reducing 
fragmentation. 

In today’s tight economy, it’s more important than 
ever to get the most out of your hardware invest¬ 
ment. Call or write today and start getting your 
money’s worth from your computer. 


Software 
rechniques 


5242 Katella Avenue 287 Lonidon Roacd 

Los Alamitos, CA 90720 Newbury. Berkshire RG13 2QJ 

United States United Kingdom 

Phone: [714] 995-0533 Phone; 44 [0] 635-30840 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro, P.O. Box 
361, Ft. Washington. PA 19034-0361. 


I can’t let the bad words on ABLE com¬ 
puter and ENABLE pass without respond¬ 
ing. We installed ENABLE here in Chile 
last year, with only one problem due to 
ABLE — the first receipt of the patches did 
not support our DMC-11 with COLINK. 
Once they fixed that we have had no prob¬ 
lems. With three-fourths of megabyte of 
memory, our 11/34 ENABLEd with cache 
will support about 20 - 22 user terminals, 
some printers, and 36 total jobs. In con¬ 
trast, our one megabyte 11/44 will support 
about 34 - 36 user terminals with the same 
job mix. More memory probably will not 
help the 34 since it appears CPU bound. 

In addition, our ABLE DH/DMs have 
been faultless, and we are delighted. We 
have nothing but good things to say about 
ABLE, and their relations with their cus¬ 
tomers, and with their products. 

However, I can not say enough bad 
things about the National Semiconductor 
NS-11 boards — they are both unreliable in 
themselves, and obviously are not true DEC 
substitutes, since DEC boards work per¬ 
fectly well with ENABLE. One of our NS-11 
boards can only live on the 18-bit bus, and 
the other won’t keep its DC-DC converter 
working long enough to be of use. 

J. Michael Hewitt 
Santiago, Chile 

♦ ♦ * 

Thank you for the fine magazine; 1 look 
forward to every issue. I find I use my 
RSTS PROFESSIONAL “library” just as 
much as I use my DEC RSTS/E manuals. I 
particularly enjoyed Scott Banks’ articles 
on disk directories and I have applied his 
ideas to create a program that may be of in¬ 
terest to other RSTS DIBOL users. 

RSTS is alive and well in SKI TOWN, 
USA!!! 

David S. Williams Jr. 

Director of Computer Services 
Yampa Valley Electric Assoc. 

Steamboat Springs, CO 
Ed. Note: See Dave*s article, ISCAN.BAS 
in the next issue. 

* * * 

The February 1983 issue of the RSTS 
Professional carried both an article and a 
letter from Alan Woloshin discussing 
Digital’s single-board 11/44. Both are very 
wrong. 

Here are the facts: 

• Digital currently markets two Unibus 
PDP-11 processors: The 11/24 and the 
11/44. The 11/24 is a single hex-board proc¬ 
essor and is pinned somewhat like the 11/04 
and 11/34. This is probably where the con¬ 
fusion arose. The 11/44 is a multi-board 


processor, consisting of between 4 1/3 and 
8-hex modules, depending on options. 

• Each processor requires a unique 
backplane. Each backplane was newly in¬ 
troduced with its respective processor. We 
in no way support operation of the pro¬ 
cessor module(s) in previous backplanes. 

• The 11/24 uses existing MSll-L parity 
memory (albeit in a new mode) or the new 
MS 11 -P 1 Mb ECC memory. The 11 /44 uses 
MSll-M or MSll-P ECC memory. 

From these you can see that Mr. 
Woloshin’s suggestion won’t work. We 
suggest instead that: 

• If you now have an uncached 11/34, 
and are simply swapping too much, the 
11/24 may be the right solution for you. It 
offers 22-bit (4Mb) addressing to solve your 
swapping problems but uses a slightly 
slower CPU. 

• If you now have an uncached 11/34, 
and need more memory and CPU, the 
11/44 is the right solution for you. It also 
offers 22-bit (4Mb) addressing and a faster 
CPU. 

• The speed comparison between a 
chached 11/34A and the 11/44 is not so 
dramatic. Here, the principal advantage is 
the larger physical memory. 

The only DEC-supported method of up¬ 
grade is (CPU) box replacement. RSTS 
users can just move all your I/O from your 
existing 11/34 CPU box to your new 11/24 
or 11/44 CPU box or cabinet, boot up, and 
reset the DEfaults. Some product lines at 
DEC even offer an upgrade (trade-in) pro¬ 
gram. 

Atlant G. Schmidt, Principal Engineer 
PDP-11 Systems Engineering 
Maynard, MA 

* * * 

I applaud your editoral. The Right Tool 
(April, 1983), in which you point out how 
RSTS continues to lag behind other DEC 
operating systems. DEC, although pledging 
their support of the RSTS community, con¬ 
tinues to ignore our needs or place them 
behind the needs of the VAX and RSX 
communities. Is it that we don’t have 
enought clout? 

The RSTS community must be able to 
present its needs and problems to DEC and 
expect some action on their part. I have 
heard estimates which claim that there are 
10,000 RSTS sites across the U.S.A. (and 
this may be conservative). It would seem to 
me that 10,000 sites should be enough clout 
to convince DEC that RSTS is a product 
which must remain state-of-the-art and 
have their full support. What we need is a 
united voice. 

The Independent RSTS Users Society 
(IRUS) can be effective in using clou^ to in¬ 
fluence DEC. In addition, it can assist 


member sites in overcoming some of the 
deficiencies of RSTS by providing a means 
of exchanging information and experiences 
with other RSTS sites. 

If indeed there are 10,000 sites out there, 
then there should be 10,000 members of 
IRUS. I invite each of your readers to join. 

Carlos Flores, IRUS Chairman 
Superior Computer Systems 
Rockville Center, NY 
P.S. IRUS membership dues are $75.00 per 
site, per year. To join, contact Joyce 
Leonard, IRUS, Inc., 3657 Post Road, 
Warwick, RI 02886. 

« ♦ ♦ 

Your magazine is a fine instrument for 
the transfer of expertise, and we thank you 
for it. 

Do you, your associates, or any of your 
readers know of a DIBOL program 
generator? I would be grateful for any in¬ 
formed response, yea or nea. 

Richard L. Logan, President 
Access Information Systems, Inc. 

Ashland, MA 

« « ♦ 

I’ve just received your inquiry as to why 1 
haven’t renewed my subscription to the 
RSTS PROFESSIONAL. 

Let me say that it’s been my pleasure to 
subscribe to such a high-quality and useful 
publication since Volume 1, Issue 1. 1 don’t 
know of any other source that can give me 
such a wealth of information of RSTS as 
the RSTS PROFESSIONAL. 

However, things do change, and my of¬ 
fice now runs 4 VAX 11/780’s in addition 
to one PDP-11/70 (and RSTS). Further¬ 
more, the PDP will be phased out by late 
summer, so in a nutshell, no more RSTS. 
While I find The VAX Scene to be an infor¬ 
mative section, 1 hope that you might find it 
possible in the very near future to expand it 
into a VAX PROFESSIONAL that will 
rival the RSTS PROFESSIONAL in scope 
and quality. 

Les Hino 
University of Hawaii 
Honolulu, HI 

Ed. Note: Please see our editorial on page 
4. Welcome back! 

* ♦ ♦ 

I am writing in response to the fellow 
who is looking for an escape from XQWIK. 
There was a contribution to the Spring 1982 
RSTS symposium tape called CSORT 
which may be of help. 

CSORT is a high performance replace¬ 
ment for XQWIK. It supports the same 
data formats and creates the same key files. 
However, it is ten times faster. 

Ken Harris, software consultant 
Greendale, WI 

f 
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EMULEX TALKS DEC 


IS YOUR VAX SUFFERING FROM A TERMINAL CONDITION??? 

How would you like to double (repeat, double) the throughput of your terminal-bound 
VAX-11/750 or 780—for less than $6,000? DEC’S DMF-32 modules have already slashed the data- 
communications overhead of “small” VAX-11/730’s. Now Emulex is extending DMF concepts to 
the whole VAX family With bonus benefits. Emulex’s single-board CS21/F multiplexer gives you 16 
asynchronous lines [instead of 8), with modem control for remote terminals on all 16 lines (instead 
of just 2). Emulex CS11/F expands this to 48 iines—again on a single board. 


THE BEST OF DH AND DZ... 

Dynamic selection of the most efficient mode of operation, DMA or programmed-!/O, by the DMF 
driver significantly reduces DZ11-type interrupts. 

Emuiex’s DMF emulations provide DMA (DHII) operation when queued output data is greater 
than 64 characters in length, as in word processing, screen editing and graphics. 

Because there is CPU overhead involved in setting up a DMA transfer, interrupt (DZII) opera¬ 
tions are more efficient for lesser amounts of data, such as character echo and data entry. The DMF 
driver can transfer “bursts” of up to 32 characters to the 32 character output silo on each line, under 
a single interrupt operation. Resuit: Emulex DMF emulations provide the most cost effective VAX per¬ 
formance enhancement currently available!!! 


SOON [STAY TUNED)... 

And that’s just for starters. Emulex will soon offer two new DMF-type multiplexers that will 
allow you to expand your system, in DMF mode, to inciude statistical concentration (an Emulex exclu¬ 
sive). Result: Single-board modules that can support up to 128 or 256 local or remote terminals. 
Become a Believer Write for a more extensive explanation of Emulex data communications and the 
new DMF emuiations. 


SYSTEMS 10 AND 20, TOO... 

The word is out. Emulex communications technology has been extended to DEC System 10 and 
System 20 mainframes. How? Users are plugging Emulex modules into the PDP-11 ISA’s or 40’s that 
serve as front-ends for nearly every large DEC installation. No change in front-end or mainframe soft¬ 
ware required. 


FROM THE EMULEX FILE. 

Read about all these new Emulex products and a lot more in the new Emulex Controller Handbook 
now coming off the press. Write or call for your free copy. 



EMULEX 


3545 Harbor Blvd., RO. Box 6725, 

Costa Mesa, California 92626, 

Toll Free (800) 854-7112, In Calif. (714) 662-5600. 


DEC and VAX are trademarks of Digital Equipment Corporation. 
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RSTS/E DISK OPTIMIZATION 
IN A MULTI-USER ENVIRONMENT 

By William R. Davy. System Performance House. Inc. 

ABSTRACT 

A great deal of existing literature addresses the important matter of RSTS/E disk optimization. This 
article extends beyond the conventional wisdom to describe previously unpublished optimizations available 
for multi-user RSTS/E systems. Included are a review of common disk optimization practices, some obser¬ 
vations about the multi-user RSTS/E environment, and how these two interact. 


Most RSTS/E users are painfully aware that their 
systems tend to be disk bound. They perform far more disk 
accesses than are needed for mere data retrieval, program 
loading and swapping. Furthermore, disk seek time for 
these operations and others is longer than necessary. To 
minimize these problems, users are generally limited to the 
following methods. 

• Center and pre-extend the UFDs. Some shops also pre¬ 
extend the MFD contiguously starting at device cluster one. 

• Map files contiguously and give them the contiguous 
attribute where appropriate. 

• Increase file clustersize so that the file is mapped in 
seven clusters or less, up to the maximum clustersize of 
256. 

• Center the swap files, run-time system files, etc. 
Tedious manual procedures generally limit these efforts to 
the few files which are perceived to be most used. 

• Increase the pack cluster size to decrease FIP 
overhead. 

• Run REORDR frequently. 

• Use the “new files first" attribute on the disks. 

•Allocate some free space near the center of the disk. 

Two major focuses of this article will be to correct the 

misconceptions associated with the above steps and to 
describe other significant optimizations. It is assumed that 
the user is familiar with the RSTS/E file structure. There 
have been excellent descriptions by Mike Mayfield. Scott 
Banks, et al. 

THE RSTS/E ENVIRONMENT 

— Software Characteristics 

RSTS/E systems are by definition multi-user systems: 
their performance problems arise under multi-user condi¬ 
tions. Consequently, our optimization efforts will focus on 
these. 

The fundamental consideration of RSTS/E disk op¬ 
timization is that consecutive disk accesses to the same file. 
UFD or MFD are statistically rare in a multi-user RSTS/E 
system. 

For example, take a system whose file clustersize has 
been optimized and whose directories have been recently 
REORDRed. Consider what would happen if there were a 
number of jobs performing heavy I/O to disk files and a few 
jobs excercising FIP through directory accesses, etc. (i.e.. a 
typical RSTS/E system). We would find enough idle time so 
that each job would receive the CPU time to queue its next 
disk access well before the system could process the other 
pending requests. For most of the time, each job would have 


a pending request. No given job would be able to receive two 
consecutive disk accesses, the RSTS/E "fairness" algorithm 
notwithstanding. If each job accessed a different set of files, 
no file would ever receive two consecutive accesses. 

What about accesses to MFDs and UFDs? It is fairly well 
known that FIP is single-threaded. That is. it will process 
any operation to completion before starting another. This 
guarantees that two jobs will never perform FIP operations 
simultaneously. Although some FIP operations require 
multiple UFD accesses (e.g.. a file lookup in a large directory), 
there are other jobs which do file accesses without FIP. 
There will be file accesses in between the UFD accesses. 

Furthermore. FIP always accesses exactly one 
MFD/UFD block at a time. Monitor statistics show that the 
number of directory accesses always equals the number of 
directory blocks transferred. The value of this observation 
will become apparent when we discuss UFD optimizations. 

— Hardware Characteristics 

DEC and third-party vendors offer a number of disk 
drives with different sizes and speeds, but they all have 
some common characteristics. 

First, total time for completion of a disk read or write 
operation is equal tO: SEEK TIME -i- ROTATIONAL LATENCY 
TIME + TRANSFER TIME. Seek time across just one track is 
significant when compared to either rotational latency or 
transfer time. Seek time increases less than linearly as the 
number of tracks increases. 

Rotational latency time is the time it takes for the disk 
to rotate the transferable data under the head(s) after the 
seek has been performed. The fundamental consideration 
discussed above shows us that it is nearly impossible to pre¬ 
determine the rotational state of the disk before any given 
operation. Therefore, except where special circumstances 
warrant otherwise, it is accurate to assume an average 
latency time equal to one-half the maximum latency time. 

From a statistical standpoint, transfer time is small 
compared to the other two components. Consequently, our 
major hope of speeding up accesses lies in reducing seek 
time. This is accomplished by accessing blocks on the disk 
which are "close" together. For now. it will suffice to say 
that blocks which are close together on the disk have block 
numbers which are near each other, and vice versa. 

THE CONVENTIONAL WISDOM RE-EXAMINED 

Now we are ready to re-examine all of the popular disk 
optimization methods, paying particular attention to their 
effect on multi-user systems. 
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A) Determining the disk center 

In many disk optimizing schemes, the UFDs, free space 
and certain files are centered. Some programs calculate the 
center of the disk to be the median numbered block. Others 
recognize that the entire disk may not be allocated, so that 
the center is better considered to be closer to the beginning 
of the disk, say perhaps one-third of the way from the 
beginning to the end. 

These schemes are feebie attempts to guess the op¬ 
timal "center" of the disk. A much better position can be 
caiculated. Simply stated, the center would be the block 
number equal to half of the space needed for all of the files 
on the disk, plus some free space and the space needed for 
the UFDs and the MFD. An improvement upon this algo¬ 
rithm would be to subtract the size of all of the files not 
used during time sharing. (They would be placed at the end 
of the disk where they would not get in the way.) The other 
files, the UFDs, the free space and the MFD would be placed 
on the disk, starting at the beginning. The calculated center 
would then be at the center of the active files. In this article, 
the term "center" refers to this. 

B) Pre-extending the MFD 

Some installations pre-extend the MFD. Presumably, 
this is done to make it contiguous. In a single-user system, 
this can speed up MFD searches, but in a multi-user system, 
it practically guarantees that MFD seeks will be as slow as 
possible. The MFD would be entirely contained at the edge of 
the disk. As the fundamental consideration shows, we are 
unlikely to get two consecutive accesses to the MFD. A 
much better strategy for optimizing the MFD is described 
later. 

C) Placing and pre-extending the UFDs. 

The fundamental consideration shows that the main 
reason to pre-extend a UFD is not to make it contiguous, but 
to control its general position. The proper position for UFDs 
is near the center. The strategy of placing UFDs near their 
associated files may make some sense in a single-user 
system, but it is folly in a multi-user system. It will 
guarantee that UFDs — the most heavily accessed blocks on 
the disk — will be scattered as far apart as possible. It will 
also guarantee that if the most used files are in different ac¬ 
counts, they will also be scattered as far apart as possible, 
maximizing seek time. 

The second question concerning UFDs is how much 
should they be extended. One strategy is to extend them to 
their maximum size. 112 blocks. On a system with 100 ac¬ 
counts, this requires 11,200 blocks of prime space on the 
disk, most of which will never be used. 

Another strategy is to use the minimum amount 
necessary to hold the current directory information. This 
strategy is poor on two accounts. First, many systems add 
new files to their accounts without first deleting others. If 
the UFD is full, it will be extended, not necessarily in a cen¬ 
tral location. Second, when files are deleted and recreated as 
they are by editors, compilers, etc. they are often recreated 
with smaller clustersize which requires more UFD space. If 
the UFD was created just large enough to hold its previous 
contents, it will have to be extended to hold the expanded 


mapping information. So it is clear that some scratch space 
should be left in the UFD. The UFD optimization section will 
have more on this subject. 

D) Using the optimum file clustersize 

Optimum file clustersize is generally considered to be 
the smallest clustersize which will map the file in seven 
clusters or less. If the file is larger than 256*7 blocks, the 
optimum clustersize would be 256, the maximum cluster- 
size. The reason for this is that the "retrieval blockettes" in 
the UFDs each hold pointers to seven clusters. If the file has 
seven clusters or less, then the minimum number of 
blockettes is needed to map the file. 

Optimum clustersize helps performance two ways. 
First, since only one retrieval blockette Is kept by FIP at a 
time, fewer "window turns" will be performed to access the 
file. Second, by having fewer blockettes in the UFD, it will be 
more compact and cached more efficiently. 

There are some disadvantages to using the optimum 
clustersize. The space allocated to the file is a multiple of the 
clustersize. regardless of what is actually used. This can in¬ 
crease disk usage up to seven percent in a typical case, and 
up to 14 percent in certain pathological cases when com¬ 
pared to using the minimum clustersize. 

Raising clustersize also makes it more difficult to place 
a file exactly where you want it. FIP always places files on 
cluster boundaries. In cases where it is desirable to pack files 
of different clustersize close together with no free space in 
between, using optimum clustersize often prohibits placing 
a file exactly where you want it. 

On certain files, it may actually be advantageous to 
lower clustersize below the "optimum" value so that the 
files may be placed on an otherwise unattainable boundary. 
It may also be worthwhile to save the allocated but unused 
space that is wasted when using large clustersize. Run-time 
system and swap files are good examples. 

E) Positioning files 

Positioning files can increase system throughput by 
decreasing seek time. One of the popular optimizations is to 
position files accessed by a particular program as close to 
each other as possible, if you cannot place them on separate 
drives. Here is another case where a single-user optimization 
causes degradation of performance. As we saw when dis¬ 
cussing the fundamental consideration, a particular Job is 
unlikely to get two consecutive accesses to the same disk. 
So what is the purpose of positioning the files? The only 
value comes from positioning them near the files being ac¬ 
cessed by other Jobs, which will also cause them to be posi¬ 
tioned near each other. 

From the above example, we begin to see that we must 
position files with consideration for all of the files on the 
disk. The most used files will be placed closest to the center: 
the least used files will be placed nearest the edges. This 
algorithm will be expanded into a powerful file positioning 
strategy. 

F) Making files contiguous 

At this point, it is necessary to distinguish between the 
two types of contiguousness. Files whose block numbers are 
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contiguous will be referred to as being mapped contiguous¬ 
ly. In addition, there is a RSTS/E file attribute known as the 
contiguous attribute, which tells RSTS/E that the file is con¬ 
tiguous without FIP examining the mapping. This attribute 
is what causes PIP and DIR to list a file as being contiguous. 

There are three main reasons for mapping files con¬ 
tiguously. First, the file is compactly placed on the disk so 
that large transfers can be made with one access. Second, 
the entire file can be placed where desired. Finally, in cases 
where the file need not be extended, it can be given the con¬ 
tiguous attribute to help reduce window turns (FIP 
overhead) on files larger than 256*7 blocks. Only on single- 
user systems is it necessarily true that head movement is 
minimized by making files contiguous. 

G) Putting some free space near the center 

Assuming that most systems create new or temporary 
files, free space becomes very active file space and should be 
positioned near the active files. Two questions arise concern¬ 
ing free space: where and how much? 

Free space clearly should be positioned near the center 
of the disk where the most active files should also reside. 
Most programs, including DEC utilities, do not specify file 
position when they create new files. FIP searches for a file 
location when it is created or first extended by starting at 
the low numbered end of the disk until it finds contiguous 
space (if possible) for the specified clusters. The ramifica¬ 
tions of this are important. 

First, if there is free space between the beginning of the 
disk and the centered free space, it will be used. Therefore, 
centered free space will only be useful if there is no other 
free space below it — the low numbered end of the disk 
must be packed tightly with files. 

Second, FIP has considerable overhead searching for the 
free space. If we have a choice between placing free space on 
the high or the low side of the center, we should place it on 
the low side so FIP will find it faster. 

H) Increasing pack clustersize 

Pack clustersize can be considered the minimum file 
clustersize. FIP maintains SATT.SYS, which is a bitmap for 
the pack clusters on the disk. It tells which pack clusters are 
in use. If those clusters are large, there are fewer of them 
and FIP can search the bitmap easier. Also. SATT.SYS will be 
smaller and there will be fewer accesses to it. FIP only keeps 
one block of SATT.SYS in memory at a time. 

Increasing pack clustersize also results in less variation 
in clustersize between files. The disk becomes less 
fragmented and it is easier to pack files tightly, eliminating 
free space in front of the centered free space mentioned in 
the previous section. 

The disadvantage of increasing pack clustersize is that 
it tends to waste space. Note that on a pack with pack 
clustersize 16, even a one block file uses 16 blocks. All 
storage allocations are rounded up to a multiple of 16. 

I) Running REORDR frequently 

Using REORDR makes systems run faster. The UFD 
structure can be considered a tree, and REORDR allows FIP 
to traverse that tree more quickly. However, while there are 


many ways to organize MFD/UFDs, the one created by 
REORDR is almost never optimal. 

POSITIONING FILES ON A MULTI-USER SYSTEM 

Earlier, we defined the center of the disk. If we could 
somehow determine which blocks of which files/UFDs were 
accessed the most during a time sharing session, we could 
then position those files in their optimum static position by 
placing the most accessed blocks nearest the center. 

There is no practical way to know exactly which files 
are used the most, but one can make some reasonable 
guesses by examining the nature of the system. What 
follows is a description of common files in what is likely to 
be close to their optimum order. That is, the ones mentioned 
first should be placed closest to the center. 

A) Ordering files around the center 

The swap files are frequently accessed on most 
systems. With the following exception, there is little reason 
to have more than one swap file on any given disk. The 
reason for having more than one swap file would be to op¬ 
timize a system in which interactive jobs swap frequently 
with event driven jobs, the usual job count is much less than 
job maximum, and there is good reason to do all swapping 
on the same disk. Under these conditions, having 
SWAP3.SYS just in front of SWAP.SYS (and no other swap 
files) can decrease lost time by requiring slightly shorter 
seeks between the out-swaps and the in-swaps. 

The files OVR.SYS, ERR.SYS, and BUFF.SYS are fre¬ 
quently accessed, if they are used. If OVR.SYS is not used, 
then the current SIL should be positioned near the center of 
the disk. Otherwise, it can go to the back edge with the 
other unused files. 

The non-permanently resident run-time systems and 
resident libraries are frequently accessed. Note that in addi¬ 
tion to being accessed at program load time, they are ac¬ 
cessed on certain in-swaps. Under certain conditions, lost 
time can be decreased by positioning these files as near as 
possible to the swap files. Permanently resident run-time 
systems are not accessed once a time sharing session has 
started, so those files should be placed at the back edge of 
the disk. 

MFDs and UFDs should be placed near the center, as 
will be discussed later. 

SATT.SYS is accessed frequently on disks when files are 
being created or deleted. It should also be near the center. 

Free space should be near the center as mentioned 
earlier. 

Next should be frequently used files. Presumably, 
someone knows which files those are. 

The remaining files should be positioned around the 
others in decreasing order of use, keeping in mind that the 
free space in the center will not be used until the free space 
toward the front of the disk is used. 

B) Improvements over ordering around the center 

The above rules for positioning files are effective until 
the system is actually used. When files are created and 
deleted (e.g., when they are edited or rebuilt), the new ver¬ 
sions end up where FIP puts them, and free space is created 
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elsewhere on the disk. These new creations are not likely to 
be well placed. Consequently, several additional steps should 
be taken. 

First, as a general rule, files which are likely to be 
deleted should be placed near the center. This will force the 
resulting free space to be in a good location. Furthermore, if 
there is sufficient free space, the files likely to be deleted 
without being otherwise accessed, can be placed near the 
high numbered end of the disk. The free space generated 
when they are deieted will be used last: the well-positioned 
free space will be used first. 

It may seem difficult to guess which files are likely to 
be deleted, but in reality it is quite easy. With few excep¬ 
tions, the most recently created files are the most likely to 
be deleted soon. Think about it, keeping in mind that most 
editors, etc. do not modify old versions of files, but create 
new ones, deleting the old ones when done. 

C) Determining the most accessed fiies 

With the large file processor, it is reiatively easy to scan 
the list of open files. One might conclude that monitoring 
this iist for the most commoniy opened files would reveal 
the most heavily accessed files. Unfortunately, such at¬ 
tempts will produce poor results. 

Consider a typical system which runs error logging, the 
spooiing package with batch processors, and uses the CUSPs 
frequently. Error logging ieaves the error file open con¬ 
tinuously and only accesses it in the event of errors. The 
spooling ieaves a number of work files open and accesses 
them only occasionally. To load CUSPs, the system must 
open them, read them, and close them. However, all this 
happens so quickiy that the monitoring program is quite 
likeiy to never see it happen (unless It is absolutely hogging 
the system). So any likeiy monitor program would guess the 
relative frequency of accesses to those fiies exactly 
backwards. 

There is a large difference between a file being open 
and being accessed. Accesses are difficult to monitor 
without iarge overhead. Fortunateiy. some common sense 
observations can heip determine which files are likely to be 
accessed most often. 

Compiled BASIC programs and RT11 and RSX task im¬ 
ages. can be ioaded into memory with just one file access, 
provided that they are not overlaid. However, the ones that 
are overlaid (including PIP.SAV, EDT.TSK, and TKB.TSK), can 
be accessed many times in the course of one run. TSK files 
larger than 115 blocks and SAV files much larger than their 
core images are also overlaid. There is considerable senti¬ 
ment that suggests that LOGIN should be well positioned 
because of its frequent use. but consider that in the course 
of one task build, more accesses are made to TKB.TSK than 
to LOGIN all day long. The same phenomenon is seen with 
PIP. EOT. ED2. and LBR. 

Files which are accessed by EOT or compilers are 
typically accessed one block at a time. This implies that even 
if the file is only opened once, it will be accessed many 
times. Note that any fiie with a source file extension likely 
falls into this category. Data files, especially randomly ac¬ 
cessed ones.are typically accessed a few blocks at a time. 
Object libraries, if they are used, are accessed many times 


per use. LOG fiies are not likely to be accessed more than 
once, sequentially, and possibly many blocks at a time (as 
PIP would access it). 

Programs which access particular files each time they 
are run are most iikely accessed less often than the files 
they access, especially if they do many accesses to those 
files. 

D) Positioning across cylinder boundaries 

Discussions about disk cyiinder boundaries are rare in 
PDP-11 operating systems. On RSTS/E systems, the system 
takes care of mapping virtuai blocks onto physical blocks on 
the disk without help from the programmer. For the most 
part, little is gained by positioning files across the minimum 
number of cylinder boundaries. 

Files on most systems are accessed one or a few blocks 
at a time. The blocks transferred on any given access are 
unlikely to cross a cylinder boundary regardiess of how files 
are placed. The fundamental consideration shows there is 
little to be gained from positioning such files across 
minimum cyiinder boundaries, since they are unlikely to be 
accessed twice in succession. 

There are disadvantages in trying to avoid crossing 
cyiinder boundaries. Due to FIPs aiignment algorithm, 
cylinder boundaries always straddle clusters for any cluster- 
size greater than one. On any large disk and on any opti¬ 
mized disk, the pack clustersize will be greater than one. An 
attempt to have all files straddle minimum cylinder bound¬ 
aries would create free space at many cylinder boundaries. 
The degradation from scattering free space would more 
than make up for any gains from avoiding cylinder bound¬ 
aries. Furthermore, attempts to position files with large 
clustersize across minimum cylinder boundaries tend to 
position them far from where they are desired. (Explanation 
of this effect is beyond the scope of this articie; the mathe¬ 
matically inclined are referred to the Chinese Remainder 
Theorem.) 

There are benefits, though, to positioning the most 
useful files. Non-permanently resident run-time systems are 
ideal candidates for minimum-cylinder positioning. If pos¬ 
sible. the entire file is transferred in one access. Since there 
are just a few of these files, it is worthwhile to straddle the 
minimum number of boundaries with these, if they are used 
often. 

Similarly, frequently accessed BACs are good can¬ 
didates for intra-cylinder positioning. Notice that on large 
disks, most of these files will miss cylinder boundaries 
anyway, regardless of the positioning aigorithm. Ditto for 
unoverlaid TSKs and SAVs. 

Overlaid task images are another story. They tend to be 
larger (harder to position), and they are accessed by a 
smaller number of blocks at a time, so they tend not to be 
accessed across cylinder boundaries. The benefit is small 
compared to the effort and other resulting degradations. 

The swap files are large and will likely cross many 
cylinder boundaries regardless of where they are placed. Op¬ 
timum placement can at best avoid one cylinder boundary. 
Once again, the benefit Is very small compared to the harm 
resulting from the likely off-center placement. 

The last "files" to be considered are the MFDs and 
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UFDs. They are always accessed one block at a time, so no 
single access crosses a cylinder boundary. The fundamental 
consideration shows that it is unlikely to access the same 
MFD/UFD twice in succession, so there is almost nothing to 
be gained by avoiding cyiinder boundaries with MFDs/UFDs. 

OPTIMIZING MFDS AND UFDS 

UFDs are divided into chunks of eight words called 
blockettes. There are four different types of blockettes: 
name, accounting, attribute, and retrieval blockettes. 
Blockettes are linked together by pointers and except for 
the requirement that they start on an eight-word boundary, 
can reside anywhere in the UFD. Any blockette whose first 
two words are zero is considered unused (free space in the 
UFD). 

The name blockettes contain the name and extension of 
the file in RADlX-50. The first blockette in a UFD contains a 
pointer to the name biockette of the first file in the account. 
Each name blockette contains a pointer to the name 
blockette of the next file in the UFD. When FIP searches a 
UFD for a file, it starts with the first blockette of the UFD 
and follows this chain until it finds the desired file or ex¬ 
hausts the list. 

Each name blockette has a pointer to the accounting 
blockette for its file. This blockette contains the last access 
date, the number of blocks in the file, the creation date and 
time, the associated run-time system, and the file cluster- 
size. 

Each name blockette also has a pointer to the first at¬ 
tributes blockette if the file has any attributes. The at¬ 
tribute blockettes contain file attributes (up to seven per 
blockette), plus a pointer to the next attribute blockette for 
the file. There is a maximum of two attribute blockettes per 
file. 

Finally, each name blockette contains a pointer to the 
first retrieval blockette. Each retrieval blockette contains 
the starting device cluster numbers for up to the next seven 
clusters of the file, plus a pointer to the next retrieval 
blockette, if it exists. 

In a sense, the internal structure of the UFDs is a tree: 
the name blockettes form the root of the tree, the retrieval 
and accounting blockettes form branches, and the at¬ 
tribute blockettes are leaves off of the accounting block¬ 
ettes. This tree can be searched in the forward direction, 
that is. from the root to the leaves, but not backwards. 
Since all of the nodes of the tree are found only by following 
pointers, the nodes (blockettes) can be located In any order 
in the UFD. However, we will see that some orders are better 
than others. 

A) Straight file copy 

When files are copied into an empty UFD one at a time, 
their associated UFD blockettes are tightly packed into the 
UFD. one after another, starting at the first available loca¬ 
tion in the UFD. To scan the list of name blockettes (i.e., do a 
file lookup), FIP reads through the UFD sequentially, until it 
gets to the name blockette it is seeking. Straight file copy 
guarantees that FIP will only read a block of the UFD once 
when performing a file lookup. 

It is a common belief that this system is efficient. It is 


much better than the tangled mess that results from 
creating and deleting files at random. Furthermore, most of 
the disk structuring utilities leave their UFDs this way. Un¬ 
fortunately. except for very small directories and a few 
pathological cases, straight file copy is never best. 

B) REORDR 

The other well-known UFD optimizing technique is 
REORDR s algorithm. REORDR puts all of the name block¬ 
ettes in the requested order starting at the beginning of the 
UFD. The remainder of the last block of the UFD used for 
storing name blockettes is left empty. REORDR writes the 
accounting, retrieval, and attribute blockettes starting In 
the next block of the UFD. When possible, REORDR writes all 
of the non-name blockettes in the same block of the UFD so 
that FIP only needs the minimum number of disk accesses 
to retrieve them. 

For large directories, the above strategy is far superior 
to straight file copy. To open the last file in a UFD created 
through straight file copy, every block in use in the UFD 
must be read (with the possible exception of the last block). 
To open the last file in a UFD created by REORDR, only the 
blocks containing name biockettes (usually one-third of the 
blocks or less) must be read to find the last name blockette. 
One other block — the one with the accounting, attribute, 
and the first retrieval blockette — also must be read. So in 
large directories created by REORDR, approximately one- 
third the UFD accesses are needed to open files as In direc¬ 
tories created by straight file copy. 

Unfortunately. REORDRed directories are not always 
optimal. Consider the case in which there are just a few 
small files In a UFD. If the UFD was created by a straight file 
copy, all of the directory information is in the first block of 
the UFD and can be retrieved with one access. If the UFD is 
REORDRed, the name blockettes will be in the first block, 
and the rest of the directory information will be in the sec¬ 
ond block, requiring two accesses to open any file! 

C) DOPTERed UFDs 

Up to this point, we have hinted that there are a 
number of improvements to the UFD structure possible. In 
developing DOPTER, the System Performance House com¬ 
bined the best attributes of straight file copy and REORDR. 
and added some new optimizations. 

DOPTER has an internal routine somewhat similar to 
REORDR. If all the UFD Information will fit into one block, it 
is put into the first block of the UFD. If there are more 
blockettes than will fit into one block, the name blockettes 
are separated from the others as in REORDR. but with some 
interesting differences. 

The most obvious way to reduce the overhead of file 
lookups is to have the desired files as near as possible to the 
beginning of the name blockette list. While REORDR makes 
a good attempt at this with its reverse order sort on creation 
or access date, it certainly does not do nearly as well as a 
good heuristic algorithm which will accept help from the 
user. (Note that sorting in alphabetical order on file name or 
extension is basically useless for optimization.) 

Since DOPTER is very good at placing the most used 
files at the front of the UFDs, DOPTER leaves room in the 
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the X25 world. 
Ibday. 


A Unibus/DMA system that provides DEC 
minicomputers access to X.25 networks. 
Great! 


Today’s X.25 public networks offer an 
alternative to the high cost of dedicated 
lines and the slow speed of dial-up 
connections. ACC’s X.25 products help 
major government agencies and Fortune 
500 companies take advantage of this 
alternative. 

Our products plug directly into your 
DEC host’s UNIBUS or LSI-11 Bus. They 
off-load X.25 protocol processing and 
transfer data to your host CPU by means 
of high-speed Direct Memory Access 
(DMA). 


>loW 
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Three DEC/X.25 Interfaces. 

ACC has three major X.25 products to 
meet the requirements of your application. 
All are microprocessor based. All are 
certified for operation on Telenet and other 
public packet networks. All comply with 
CCITT’s Recommendation X.25 for levels 
1,2, and 3. And all are available for delivery 
today. 

1. Terminal Networking. With 
theIF-ll/X.25 PLUS, remote X.25 
network terminals can access your host 
as if they were locally connected. The 
IF-11/X.25 PLUS can be configured 
to support any combination of up to 32 
local and remote terminals. Additionally, 
local terminal users have the option of 
connecting to other hosts on the X.25 
network. All PAD (Packet Assembly/ 
Disassembly) functions (CCITT X.3, 

X.28, X.29) are coded into subsystem 
firmware, without impacting your host 
CPU. 

2. High Speed File Transfer. The 
IF-11/X.25 connects your host to an X.25 
network. It provides up to 32 full-duplex 
virtual circuit connections to a VAX or 
PDP-11, at line speeds of 56 Kbps (with 
even faster line speeds available). The 
IF-11/X.25 is ideal for file transfer 
applications to remote network locations 
or for any application that needs direct 
access to an X.25 network. 

3. LSl-11 Bus Systems. The 
IF-11Q/X.25 network access system is 
functionally identical to the IF-11/X.25, 
but designed for your PDP-11/23. 

Access Is Our Business. For over 
a decade, beginning with ARPANET, ACC 
personnel have designed and manufactured 
a variety of systems to access packet- 
switched networks. ACC’s X.25 products 
are designed to meet your custom 
applications. For example, we have 
customized X.25 systems with the 
following options: (a) 256 byte packet size, 
(b) ADCCP frame level, (c) Point to Point 
capability (DCE version). 

If you need access to the world of 
X.25, phone us at (805) 963-9431. 
Today. 



Accessing the World.. Today. 
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first block of the UFD for all of the blockettes of the first 
two files. Thus, the most used files can be opened with only 
one UFD access, a 50 percent improvement over REORDR. 
Except for this improvement, all of the name blockettes re¬ 
main segregated from the other blockettes. 

To appreciate DOPTER's most significant attribute, it is 
necessary to understand FIP's method of allocating free 
space in UFDs. When FIP needs free space, (i.e., when it is 
creating a new file or extending an old one), it first searches 
the current UFD block in memory for free space. If it finds 
what it needs there. FIP uses it. Otherwise, FIP searches the 
UFD sequentially from the beginning, examining each 
blockette to see if it is in use. 

When FIP finds its current block full, it will search every 
allocated blockette before it finds a free one if the UFD was 
created by straight file copy. If the UFD was created by 
REORDR, it will search through all of the name blockettes 
until it comes to the small amount of free space left at the 
end of the name blockettes (if any). If that space has been 
used (which it will be after a few new files are created), FIP 
must search to the end of the allocated blockettes, just as in 
straight file copy. 

The solution is to leave some free space near the begin¬ 
ning of the UFD. Since FIP only accesses one block at a time 
in the UFDs. there is little to be lost with this strategy. 
DOPTER leaves blocks two through nine empty. Thus. FIP 
finds free space with a minimum number of reads. In a large 
UFD, this strategy can cut file open overhead by 80 percent. 

There is another important benefit from leaving free 
space near the start of the UFD. In a typical UFD. files are 
both created and deleted in somewhat random order. If an 
otherwise tightly packed UFD has a few files deleted, there 
will likely be a few free blockettes scattered throughout the 
UFD. When FIP reallocates the space, it scatters the block¬ 
ettes throughout the UFD. causing FIP to perform many 
disk accesses to do file lookups, creations, etc. FIP generates 
what is commonly referred to as a tangled directory. 

When free space is left at the front of the UFD, files still 
are deleted wherever they are. However, when new files are 
created, they are built as they would be by straight file copy. 
As we have seen, straight file copy is not best, but it is far 
better than the alternative. 

D) DOPTERed MFDs 

MFDs are similar in structure to UFDs. except that the 
name blockette entries may be for UFDs as well as files. How¬ 
ever, MFDs provide special opportunities for optimization. 

The first cluster of an MFD must be at device cluster 
one. MFDs are normally extended contiguously. However, 
this is a poor strategy because it guarantees that some of 
the most frequently accessed blocks on the disk are at the 
very edge. There are several ways to improve the situation. 

An MFD may be pre-extended anywhere. That is. 
clusters two through seven may be placed on any cluster 
boundary, preferably near the center. Not only does DOPTER 
place the other clusters near the center, but it only uses the 
first block of the first cluster. Thus, instead of building the 
entire MFD at the edge of the disk, it only uses one block 
there. All the others are where they belong. Once again, the 
fundamental consideration shows us that we have lost very 
little by removing the contiguity of the MFD because con¬ 


secutive accesses are seldom made to an MFD. (Note: all 
blocks of the MFD are available if they are needed, but that 
is seldom necessary.) 

E) Additional MFD/UFD optimizations 

Many files have associated attributes which are un¬ 
used. The prime example is task images created by the 
task builder. The task builder uses RMS I/O to create its 
task images, but the attributes are never used. EDT Version 
1 put attributes on its output files, but in the case of most 
source files, they were unneeded by the compilers or editors. 
The unneeded attributes take up space in the UFDs and 
create extra overhead for FIP. DOPTER effectively eliminates 
supernumerary attributes by recognizing source file and 
task image extensions. The same can be done with PIP. 

Another UFD optimization can be made with files with 
the contiguous attribute. Once such a file is opened. RSTS/E 
knows the mapping for the entire file from having read the 
first retrieval blockette. UFD accesses can be minimized by 
putting the rest of the retrieval blockettes for large con¬ 
tiguous files at the very end of the UFD, away from the 
useful information in the UFD. In this manner, they will 
never be accessed, not even when searching for free space. 
This strategy assumes that there is sufficient free space in 
the UFD, which is almost never a problem. 

OTHER TOPICS 

A) DLA versus DLW 

When initializing a RSTS/E volume. RSTS/E can be 
made to keep either the date of last access (DLA) or the date 
of last write (DLW). In addition to the arbitrary needs of the 
installation, there are several trade-offs when considering 
one against the other. 

The date of last access/write is stored in the accounting 
blockette. If the DLW option is chosen, this blockette only 
needs to be rewritten when a file is modified. In the case of 
read-only files, of which executable programs are a major 
example, a physical UFD access can be saved by using DLW 
instead of DLA. Note that all writes to UFDs generate 
physical accesses — they are not cached. 

On the other hand, if REORDR is used to sort the files in 
the UFD in reverse order by access date, a better order is 
likely to occur if DLA is used instead of DLW. If DLW is used, 
some frequently accessed programs/files can have very old 
last access dates and thus be put at the end of the UFD. 
With DLA. they would be put near the front. 

On balance. DLW is better with all small directories 
because only a block or two will ever be read to search the 
name blockette list for any file. The savings from not 
writing the last access date on read-only files will more than 
compensate for the slightly longer lookup path after run¬ 
ning REORDR. DLA is better only on large accounts where 
heavily used read-only programs/files will be placed at the 
front of the UFD by REORDR. 

B) New Files First 

It is easy to overrate the advantages of using New Files 
First (NFF). The arguments for using NFF are as follows. 

1). It is convenient to have the most recently created 
files at the front of the directory listing. (This has nothing to 
do with performance.) 

. . . continued on page 30 
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THE RSTS PRO VISITS THE NCC 

By Carl B. Marbach 


Los Angeles is busy. Even at night (or early morning) 
the airport is busy and choked with traffic. There are no 
rental cars and the taxi ride to Anaheim requires the na¬ 
tional debt to be raised substantially. From the East coast it 
takes twelve hours of travel to make the trip and when you 
finaliy roll into bed in the plastic motei it seems only 
marginally worthwhile. Morning comes early in California 
and arriving at the Anaheim Convention Center it looks like 
a large conference with the routine exhibitors, coffee in 
styrofoam cups, sore feet and lots of exciting equipment. 
The press rooms are smali, but there are two of them. After 
the obligatory cup of coffee in the first, I wander into the 
seccond. There are tables of typewriters for the reporters 
and ... five tables of DECmate ll’s! Ten in all, complete with 
two letter quality printers and two DECpersons to help all 
the unfortunate ones who do not know how to use this ter¬ 
rific machine. So. the National Computer Conference is off to 
(for me) a great start; I feel at home. 

The DECmate II might be the most hidden secret DEC 
has. It is a really fine machine. With its PDP-8 based word 
processing software (among the best in the industry), it also 
has CP/M capability which means it can run a large number 
of microprocessor based software packages. These 
packages include professional time and billing, spreadsheet 
planning, many financial planning languages, BASIC com¬ 
pilers and many, many others. The price is getting more 
competitive all the time and if you haven't tried one yet just 
find your nearest DIGITAL computer store and take a good 
look. Note that the DECmates are being sold by the DEC 
computer stores; they also will be selling MICRO-1 Is and 
Vax 11/730s. They will NOT be selling Rainbow 100s and 
Professional 300’s for the time being, so that while supplies 
are short the DEC stores will not be competing with the in¬ 
dependent DEC dealers. But, when they are finally making 
more than they can sell... 

The National Computer Conference is a massive event, 
taking up the whole Anaheim Convention Center, the 
Disneyland Hotel and several large (and hot) tents in the 
parking lot. It used to be known as the Fall Joint Computer 
Conference (The Fall Joint for short, but that means 
something else now) and the Spring Joint Computer Con¬ 
ference. each in its own season. The show was combined in¬ 
to one event when it became too expensive for exhibitors to 
display at both shows, and when travel to two shows was 
too much for people. The price we pay for one show is the 
crowd. Exhibitors love it; attendees put up with it. When 
you attend, be prepared. 

For most of us it is a Howard Johnsons for computers 
only there are more than 27 flavors; there are hundreds. All 
the majors are there and it is very informative to look and 
learn about the computer systems we don’t use. When you 
run out of systems, you can start with the peripherals. All 
the old ones you knew about and many new ones you 


haven’t thought about yet. A new letter quality printer for 
$995 list (20 CPS). A VT100 emulating terminal, a page size 
(66 lines) CRT, 100 MB disks in 5'/z inch size, 400 -h MB 
disks in slightly larger configurations, streaming tape 
drives, cartridge tape drives, laser printers, supplies, desks, 
and, of course, software. 

It is an impressive show. I mentioned that in general 
and was told that ’’without the micros, it wouldn’t be nearly 
as exciting. ” Right. VisiCorp (the VisiCalc people) introduced 
VisiWord and VisiSpell on the xxx personal computer (it will 
be on the Rainbow 100 in the future). While the word pro¬ 
cessing isn’t that impressive, the Speller is dynamite. DEC- 
word, WORD-11 and DECmate people take note: it is much 
better. It will even make a very good guess at what you 
were TRYING to spell. 

DEC was not outdone by anyone. The DECbooth was 
filled with new and old DEC products. The Personal com¬ 
puter line was well represented, as was the MICRO-11 runn¬ 
ing all PDP-11 operating systems (even RSTS) and the VAX 
11 /730 with its see through panels showing the inside of 
this well packaged VAX. 

The personal computers were well represented with 
their color graphics really making the booth look good. The 
telephone management system was alive and well on the 
Pro 350 and will be an impressive product; this is due out in 
the fall and will be the subject of a complete article in 
Personal and Professional (THE magazine for DEC personal 
computers). DEC also introduced IVIS, Integrated Video In¬ 
formation System which is a Pro 350 connected to a laser 
disc video recorder. Between the color graphics, the TV pic¬ 
ture and the Pro 350 controlling the video disk it is an amaz¬ 
ing array of gadgetry that will tie together two pieces of 
electronic equipment which DEC hopes will make a training 
tool par excellence. Can you imagine having the computer 
control the video disk bringing up random sections of a 
training manual depending on the user’s response to the 
prior video section? 

VAX users were not left out. Enter the new VAXstation 
100. This gigantic (18 ”??) display is connected to a MICRO 
box that houses a Motorola 68000 microprocessor. It 
emulates up to four VT-100 ’’windows, ” has bit-mapped 
graphics with a resolution of 1000 x 800, and can put a 
graph in three quarters of the picture and still give you com¬ 
plete VT-100 functionality in the remaining quarter. Oh yes. 
it has an optional mouse. Want to see a VAX that looks like 
a LISA? 

The NCC is a dizzying display of equipment and services: 
1 have not even touched on the academic sessions which ap¬ 
pear to be of high quality. There is more to do than you can 
in one week. Whatever time you can spend is not only infor¬ 
mative but also good for the soul. We all need to be re¬ 
juvenated once in a while. This could be the place. 

¥ 
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COMPILE.BAS: COMPILATION AID FOR 

BASIC PLUS TWO 

By Alexander Ehrlich, Arel Software Ltd., Yavneh, Israel 


1, INTRODUCTION 

While working on a large data processing project, I 
found that a lot of my nice BASIC PLUS programs were 
growing into not so nice BASIC PLUS 2 programs. Gradually 
my account filled up with .ODL, .OBJ and .TKB files. Also, 
whenever I ran a compilation, my terminal was tied up for 
at least several minutes. COMPIL.BAS was written to solve 
these and other problems. 

COMPILBAS helps the BASIC PLUS 2 programmer by 
doing the following: 

1) Generates the auxiliary files that are necessary for a 
compilation. 

2) After the compilation, deletes any auxiliary files that 
are no longer needed. 

3) Performs all the commands needed to run a compila¬ 
tion. 

4) Runs the compilation in “background” so as not to 
tie up the user’s terminal. See DETACH option below. 

2. USING COMPIL.BAS 

The programmer uses COMPIL by typing the following: 
RUN COMPIL 

(The program responds with “PROGRAM NAME? ”) 
program name / option list 
The extend part of the program name will be assumed 
to be .B2S unless explicitly stated. 

The following can be in the option list, separated by 
commas: 

1) CHAIN — The program will be compiled with the 

chain option 

2) NOCHAIN — The program will be compiled with the 

no chain option 

3) LINE — The program will be compiled with the 

line option 

4) NOLINE — The program will be compiled with the 

no line option 

5) DEBUG — The program will be compiled with the 

debug option 

6) XFILE — The program can use file channels 13 

and 14 

7) DETACH — The compilation will run in 

“background" on a pseudo keyboard. 
This will enable the programmer to log 
on again and continue working (or at 
least play PAC-MAN) until his or her 
compilation is finished. The program¬ 
mer will receive a message when the 
compilation is finished and any error 
messages will be stored in the .ERR file. 

If DETACH is not specified, then the 
compiler commands will be forced into 
the job stream automatically. 


3. NOTES TO THE SYSTEM MANAGER 

Although COMPIL is an aid for BASIC PLUS 2 program¬ 
ming, it is written in BASIC PLUS. Place the .BAC ver¬ 
sion of COMPIL into a convenient account (such as 11,2)) 
with a protection code of <232>. COMPIL uses privileged 
commands. 

The default option specified at line number 65 is 
CHAIN. Substitute any options that you prefer, separated by 
commas. 

Examine carefully lines 210 through 250. These lines 
generate the command and overlay files for our installation 
and might have to be modified. 


10 

EXTEND 
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& 

1 

PROGRAM - COMPIL.BAS<232> 


& 

1 

DESCRIPTION - BASIC PLUS 2 COMPILATION AID 


& 

1 

PROGRAMMER - Alexander Ehrlich 


& 

1 

Arel Control Systems Ltd. 


4 

! 

Yavneh, Israel 

70600 


& 

! 

1 

1 

DATE - 1-0ctober-82 



& 

& 

& 

50 1 
1 

I 




& 

& 

4 

1 

1 

MAIN PROGRAM 



& 

4 

60 

CR$ z CHR$(13!) 



& 

& 

\ 

DIM OPTION.LIST$(7!), OPTIONS*(7*), SYS1*(30») 


& 

\ 

OPTION.LIST$(1*) = "DETACH" 

lOPTION LIST 


& 

\ 

OPTION.LIST$(2*) = "CHAIN" 



4 

\ 

OPTION.L1ST$(3*) = "NOCHAIN" 



4 

\ 

OPTION. LIST$(i1*) = "LINE" 



4 

\ 

OPTION.LIST$(5*) = "NOLINE" 



4 

\ 

OPTION.LIST$(6*) = "DEBUG" 



4 

\ 

OPTION.LIST$(7*) = "XFILE" 



4 

\ 

DUMMY! = SYS(CHR$(6*) ♦ CHR$(9*) 

CHR$(10*)) 


& 

\ 

KEYBOARD* = ASCII(MID(DUMMY!, 2*. 

1*)) • .5 


& 


1 

OBTAIN KEYBOARD NUMBER 

4 

65 

DEFAULT.OPTION! = "CHAIN" 



4 

67 

GOSUB 100 1 

OBTAIN PROGRAM NAME 

& 


I 

OPTIONS 


& 

70 

GOSUB 200 1 

CREATE COMMAND AND 

OVERLAY 

& 


! 

FILES 


4 

80 1 




& 

1 

NON DETACH - RUN 

COMPILATION ON USER' 

S KEYBOARD 

& 


IF NOT 0PTI0NS*(1*) 



& 


THEN GOSUB 300 ! 

CREATE INSTRUCTION 

TEXT 

& 

\ 

GOSUB 400 1 

FORCE TEXT TO KEYBOARD 

4 

\ 

GOTO 99 



4 

90 1 




4 

! 

DETACH - RUN COMPILATION 

IN BACKGROUND 


& 


PRINT " . DETACH" 



4 

\ 

DUMMY! = SYS(CHR!(6*) ♦ CHR$(7*)) 



4 

\ 

GOSUB 500 ! 

OBTAIN PASSWORD 


4 

\ 

GOSUB 600 1 

RUN PSEUDO JOB 


4 


\ GOSUB 700 I SEND MESSAGE TO USER'S & 

I TERMINAL & 

& 

\ DUMMY! = SYS(CHR|(6J) ♦ CHR$(5*)) I LOGOUT & 

99 GOSUB 32000 & 

& 

I- 4 

100 I G100 4 

I & 

I OBTAIN PROGRAM NAME AND OPTIONS 4 

f 4 

I 4 

I 4 

... to page 22 
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105 

! 


\ 

\ 

110 

\ 

120 I 
I 


130 

\ 

\ 


\ 

i45 


READ PROGRAM NAME AND OPTIONS 

PRINT 

PRINT "PROGRAM NAME " ; 

INPUT LINE PROGRAMA$ 

PROGRAMA$ = CVT$$(PROGRAMA$, 132t) 

GOTO 32000 IF PROGRAMA$="" 

OPTIONS*(It) = 0* FOR It = It TO 7t 
IF INSTRdt, PROGRAMAt, "/")=0t 
THEN PROGRAM* = PROGRAMA* 

OPTIONS* = DEFAULT.OPTION*^"," I DEFAULT = "CHAIN" 
GOTO 120 

PROGRAM* = LEFTCPROGRAMA*, INSTRdt, PROGRAMA*, " ")-1t) 
OPTIONS* r RIGHT( PROGRAMA*, INSTRdt, PROGRAMA*, "/") + 1t)+" 


CHECK OPTIONS 

COMMA.LOCt = INSTRdt,OPTIONS*, ",") 

GOTO UO IF COMMA. LOCt=Ot 

OPTION* = LEFT(OPTIONS*, COMMA.L0Ct-1t) 

GOTO 130 IF LEFT(OPTION.LIST*{It), 3t)=LEFT(OPTION*,3t) 
FOR It = It TO 7t 

PRINT "ILLEGAL OPTION: " ; OPTION* 

GOTO 105 

OPTIONS*(It) = -It 

OPTIONS* = RIGHT(OPTIONS*, COMMA.LOCt+l*) 

GOTO 120 

IF (OPTIONS*(21) AND OPTIONS*(3t)) OR 
(OPTIONSt(i<t) AND OPTIONS*(5t)) 

THEN PRINT "BOTH NO AND YES ON SAME OPTION" 

GOTO 105 

OPTION* = "" 

OPTION* = OPTION* ♦ OPTION.LIST*(It) ♦ 

IF OPTIONSt(It) FOR I* r 2* TO 6* 

OPTION* = "/" + LEFT(OPTION*, LEN(OPTION*)-1*) 

IF OPTION*<>"" 


FORCE TE)CT TO KEYBOARD 


illO T.PNT* = 1* 
420 


DUMMY* = SYS(CHR*(6t) ♦ CHR*(-4t) + CHR*(KEYBOARD*) 
RIGHT(TEXT*, T.PNT*)) 


IF RECOUNTOO 


I ADDITIONAL TEXT 


THEN T.PNT* = (LEN(TEXT*)-RECOUNT) ♦ It 
GOTO 420 


OBTAIN PASSWORD 


DUMMY* r SYS(CHR*(6t) + CHR*d4t) ♦ STRING*(20t ,0*)) 
CHANGE DUMMY* TO SYS1* 

PROG* = SYS1t(7t) 

PROJt = SYS1t(8t) 

PASS* = RAD*(SYS1t(9*) SWAPt( SYSI*(10* ))) 

RAD*(SYS1t( lit) + SWAPt(SYS1t( 12*))) 


RETURN 


CHECK THAT PROGRAM SOURCE FILE EXISTS 


200 

! 

I 

I 


210 

\ 

\ 

\ 

\ 

\ 

220 

\ 

\ 

\ 

\ 


250 

\ 

\ 


PROGRAM* = PROGRAM* ■ 


.B2S" IF INSTRdt, PROGRAM*, ".")=0t 
I DEFAULT EXTEND IS .B2S 


")-1t) 


160 ON ERROR GOTO 170 

\ OPEN PROGRAM* FOR INPUT AS FILE 1* 

\ CLOSE It 

\ ON ERROR GOTO 0 

\ PGM* = LEFT(PROGRAM*, INSTRdt, PROGRAM*, 

\ GOTO 190 

170 RESUME 180 

180 PRINT 

\ PRINT "UNABLE TO FIND THE PROGRAM FILE -" 

\ ON ERROR GOTO 0 

\ GOTO 105 

190 RETURN 

I- 


CREATE COMMAND AND OVERLAY FILES 


OPEN PGM*+" 

PRINT #1t, CHR*(9t) 
PRINT #1t, "USER:" 
PRINT #1*, 


! CREATE OVERLAY FILE 


.ODL" AS FILE 1* 

".ROOT USER" 

CHR*(9t) ; "FCTR SY;" ; PGM* ; 
"LIBR:" ; CHR*(9t) ; ".FCTR LB:BP2C0M/LB 
PRINT #1t, CHR*(9t) ; ".END" 

CLOSE 1* 


OPEN PGM*-^".CMD" AS FILE 1* 


! CREATE COMMAND FILE 


PRINT #1t, PGM* ; " = " ; PGM* ; ".ODL/MP" 

IF NOT OPTIONS*(7*) 

THEN PRINT #1*. "UNITS=12" 

PRINT #1*. "ASG=SY:5:6:7:8:9:10:11:12" 

GOTO 250 

PRINT #1t, "UNITS=14" I OPTION=XFILE 

PRINT #1t, "ASG=SY:5:6:7:8:9" 

PRINT #1*. "ASG=SY:10:11:12:13:14" 

PRINT #1t, "RESLIB=LB:BASICS/RO" 

PRINT #1t, "//" 

CLOSE 1* 


& 

& 

& 

! 

1 

! 

RUN PSEUDO JOB 

& 

& 

& 

& 

! 


& 

& 

610 

ON ERROR GOTO 620 

& 

& 

& 

\ 

PK.NUM* = 1* 

& 

& 

& 

615 1 


& 

! 

FIND AVAILABLE PSEUDO KEYBOARD 

& 


! 


& 



OPEN "PK"+NUM1*(PK.NUMt)+":" AS FILE 2*, MODE 0* 

& 

& 

& 

\ 

GOTO 640 

& 

& 

620 

IF PK.NUMt=10t 

& 

& 


THEN PRINT "NO AVAILABLE PSEUDO KEYBOARDS FOR THE JOB" 

& 


\ 

ERROR.INDtrit 

& 

& 

& 

\ 

GOTO 690 

& 

& 

630 

PK.NUM* = PK.NUM* ♦ 1* 

& 

A 

\ 

RESUME 615 

& 

& 

& 

640 

FIELD #2*, 128* AS MSG* 

& 

& 

650 1 


& 


SENQ COMMANDS TO BACKGROUND JOB 



DUMMY* 

= FNSENDK"HELLO "+NUM1*(PROJ*)+","♦NUM1*(PROG*)+ 

& 



";"+PASS*, "Ready") 

& 

\ 

DUMMY* 

= FNSENDK"BP2", "BASIC2") 

& 

\ 

DUMMY* 

= FNSENDK"OLD "+PROGRAM*, "BASIC2") 

& 

\ 

DUMMY* 

= FNSENDK"COM "♦PGM*+".OBJ"+" "♦OPTION*, "BASIC2") 

& 



IF NOT ERROR.IND* 

& 

\ 

DUMMY* 

= FNSENDK"TKB ^"♦PGM*^".CMD", "Ready") 

& 



IF NOT ERROR.IND* 

& 

\ 

DUMMY* 

= FNSENDK"EXIT", "Ready") 

& 



IF ERROR.IND* 

& 

\ 

DUMMY* 

= FNSENDK"UNSAVE "+PGM*^".CMD", "Ready") 

& 

\ 

DUMMY* 

= FNSENDK "UNSAVE "♦PGM*^". ODL", "Ready") 

& 

\ 

DUMMY* 

= FNSENDK"UNSAVE "+PGM*^".OBJ", "Ready") 

& 



IF NOT ERROR.IND* 

& 

660 

aOSE 2* 

& 

690 

RETURN 


& 


310 

\ 

\ 


390 


G300 


CREATE INSTRUCTION TEXT 


TEXT* = 

"BP2" 

♦ 

CR* 



& 

TEXT* = 

TEXT* 

♦ 

"OLD " ♦ 

PROGRAM* ♦ CR* 


& 

TEXT* = 

TEXT* 

♦ 

"COM " ♦ 

OPTION* ♦ CR* 


& 

TEXT* = 

TEXT* 

♦ 

"TKb 

♦ PGM* ♦ ".CMD" ♦ 

CR* 

& 

TEXT* = 

TEXT* 

♦ 

"UNSAVE 

" ♦ PGM* ♦ ".CMD" 

♦ CR* 

& 

TEXT* = 

TEXT* 

♦ 

"UNSAVE 

" ♦ PGM* ♦ ".ODL" 

♦ CR* 

& 

TEXT* = 

TEXT* 

♦ 

"UNSAVE 

" ♦ PGM* ♦ ".OBJ" 

♦ CR* 

& 

RETURN 






& 


SEND MES.SAGE TO USER'S TERMINAL 


IF ERROR.INDt=-1t 


ELSE 

THEN 


MESSAGE* = "PROGRAM: PROGRAM*-^' 

♦"-CHECK "♦PGM$+".ERR" 

IF ERROR.INDtrOt 

MESSAGE* = "PROGRAM: "+PROGRAM*+' 


COMPILATION ERRORS " 


NO COMPILATION ERRORS 


MESSAGE* = "PROGRAM: "+PROGRAM*+ 

" NO AVAILABLE PSEUDO KEYBOARDS" 
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720 


DUMMY! = SyS(CHR$(6t) ♦ CHR$(-U%) ♦ CHR$(KEYBOARD*) 
MESSAC E$+CHR$( 13*) •^CHR$( 10*)) 


790 

! - 

000 I 


FNSEND 

SEND AND RECEIVE STRINGS FORM PSEUDO TERMINAL 

SEND.STRING! - STRING TO BE SENT 
END.STRING! 


- END OF STRING TO BE 
RECEIVED 


1000 DEF FNSEND*(SEND.STRING!, END.STRING!) 

\ ERR.COUNTER* = 0* 

\ OUT1! = "" 

\ LSET MSG! = SEND.STRING!^CHR!(13*) 

\ IF INSTRd*, SEND.STRING!, -HELL0")<>0* 

THEN REC. NUMBER* = 1* 

ELSE REC. NUMBER* = 10* 


1010 I 
! 

SEND STRING TO PSEUDO KEYBOARD 


1 

ON ERROR GOTO 1030 



1020 

\ 

PUT #2*, RECORD REC. NUMBER*, COUNT LEN(MSG!) 
GOTO 1050 

1030 

\ 

\ 

\ 

SLEEP 2 

ERR.COUNTER* = ERR.COUNTER* ♦ 1* 
RESUME 1020 IF ERR.COUNTER*<10* 
RESUME 1050 1 

SMALL 

BUFFERS 

1050 1 

RECEIVE STRING FROM PSEUDO KEYBOARD 

1 

ON ERROR GOTO 1070 



1060 

INPUT LINE #2*, OUT! 



1062 

\ 

OUT3! = LEFT(0UT!, RECOUNT) 

OUTI! = OUTI! 4. 0UT3! 



1064 

\ 

\ 

GOTO 1080 IF INSTRd*, OUTI!, END. STRING!)<>0* 

I CHECK FOR END 

GOTO 1060 

RESDME 1060 

1070 

RESUME 1060 



1080 

IF INSTRd*, OUTI!, "Error")<>0* 




OR INSTRd*, 00T1!, "error")<>0* 


\ 

\ 

\ 


OR INSTRd*, OUT1!, "?")<>0* 

OR INSTRd*, OOT1!, "*")<>0* 

I SET ERROR INDICATOR IF 
I STRING CONTAINS AN ERROR 
I MESSAGE 

THEN OPEN PGM!-^".ERR" AS FILE 3* 

PRINT #3*, 0UT1! 

ERROR.IND* : -1* 

CLOSE 3* 


1090 FNEND 

I- 


32000 IF NOT OPTIONS*d*) I NOT DETACH 

THEN PRINT 

\ PRINT "END OF COMPIL" 


32767 END 



"You haven’t been the same since the boss said you were 
a programming star," 


Riscal-2 


PDP-11 RSX, 
RSTS/E, RT-11 
and TSX-Plus 



Execution time (seconds) 


Quicksort benchmark 
executed on a PDP-11/45. 

The Pascal-2 system consists of 
an optimizing compiler, a high- 
level debugger and other utilities. 

Write us for benchmark details. 

Oregon 

Software 

The Pioneer in Performance Pascal 

2340 S.W. Canyon Road 
Portland, Oregon 97201 
(503) 226-7760 
TWX: 910-464-4779 

FORTRAN IV-PLUS, BASIC-PLUS-2. PDR VAX. RSX. 
RSTS/E and RT-11 are trademarks of Digital 
Equipment Corporation. TSX-Plus Is a trademark of 
S&H Computer Systems. 
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Four Ways 
to Secure Your 



from McHugh, Freeman 
and Associates, Inc. 

1. Data Encryption: Encrypts data, 
source and task image files 

• Prevents disclosure of sensitive 
data 

• Isolates sensitive programs 
(from privileged users) 

• Prevents unauthorized modifi¬ 
cations 


2. Menu/Access Authorization: 

Allows only menu access to all 
applications programs 

• Limits display to only those 
items available to user 

• Prevents access to the monitor 
level 

• Traces user movements 
through the menu system 

3. Keyboard Monitoring: Monitors 
and interacts with any or all ter¬ 
minals on the system 

• Use at your discretion or as a 
function of the log-in sequence 

• Optionally creates a log of all 
user activity 


4. Password Changing: Changes 
passwords routinely and quickly 
• Choose from a list of over 
3,000 encrypted English words 
or alphanumeric sequences 

Contact us for full product 
specifications and demonstration 
packages. 



McHugh, Freeman 
and Associates, Inc. 

1135 Legion Drive 
Elm Grove, WI 53122 
(414) 784- 8250 
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THE HISTORY OF RSTS 

By Peter Dick, Silver Programs. London 


The history of RSTS starts in the 
second World War. There was a re¬ 
quirement to be able to train pilots 
without having them actually go up in 
aeroplanes. Project Whirlwind was the 
name given to the first electronic com¬ 
puter that was able to operate in real 
time: this meant it could be program¬ 
med to behave like an early flight 
simulator. The connection between 
Project Whirlwind and RSTS is that one 
of the people on that project was Ken 
Olsen, and the fact that the Whirlwind 
computer was a 16-bit computer. 

Ken Olsen stayed with MIT until 
1957 when he left and formed Digital 
Equipment Corporation. Folklore tells 
us that Ken Olsen started with three 
other people, one of whom was his 
brother, using their garage to assemble 
boards. The truth of course is slightly 
more boring, and that from the first 
day of operations they had the backing 
of a quarter of a million dollar loan. 

The big breakthrough for com¬ 
puting was in 1961 when President 
Kennedy decided that the American 
people would land a man on the moon 
before the end of the decade. This deci¬ 
sion gave computing in general an 
enormous source of funds; i.e., NASA. 

In 1963 the PDP 6 was announced 
and on this machine it was possible to 
do timesharing. In 1964 BASIC was in¬ 
vented by Dartmouth College, New 
Hampshire — BASIC, of course, stand¬ 
ing for Beginners All-purpose Symbolic 
Instruction Code. 1968 saw TSS/8 be¬ 
ing released by Digital which was time¬ 
sharing on the PDP 8 that in fact»gave 
birth to RSTS. 1970 saw the release of 
the hardware, the PDP 11. which has 
become the most successful mini¬ 
computer in the history of computing. 

RSTS 11 Version 1. 1970. It was 
never released and it was only tried in- 
house. 

RSTS Version 2A. 1971. Again 
never released only tried in-house. 

RSTS Version 2B. June 1971. This 
is the date from which Digital claims 
that RSTS was introduced. There are no 
known users. 

RSTS Version 3A. February 1972. 


It was supported on the 11 /20 which 
was the only PDP 11 available, and was 
Pre-SYSGENed. 

It obviously worked on an unmap¬ 
ped machine, job max 8K words, swap 
max allowed for eight users. It was in¬ 
teresting to note that the 20K words 
were both BASIC and RSTS together. 

RSTS Version 3B. May 1972. There 
are no known users. 

RSTS Version 3C. June 1972. At 
long last we have the first recorded 
user. Bob Branton, at Southeastern 
State College. This user was in fact 
responsible for documenting the first 
complaint about RSTS, that under Ver¬ 
sion 3C the monitor was unable to 
write to a disk file from a terminal 
while reading that file from another 
terminal. Very simply, this was 
because there was no such thing in 
those days as UPDATE mode. 

RSTS Version 4A, October 1972. 
Support was increased to include the 
newly announced 11 /40 and 11 /45. 
SYSGEN was under DOS and it was in¬ 
teresting to note that the CUSPS were 
built from paper tape at 10 cps. There 
were only three manuals in those days, 
the BASIC PLUS Language Manual, 
RSTS Users Manual, and the System 
Managers Manual. RECORD I/O was 
optional, and in fact there was a 
separate sub option for UPDATE mode 
which the book told us took an extra 
75 words. There was talk of BADS for 
future releases. Hardware was fixed 
disks or RKOS's. There was no memory 
management. The garbage collector 
was FIP overlayed and it wrote out the 
program and had to read it back in 
again. PI was not write protected; i.e., 
if you were tired of it being 3.142 you 
could make it 3.1,3,16,189. Maximum 
program size was 8K words but this 
could be PATCHed to 9K if you knew 
Rosemary Phillimore. Swap max was 
increased from the original eight users 
to 16. The program SHUTUP achieved 
the system closing down by PEEKing 
at an odd address which caused the 
machine to crash. 

RSTS version 4B. contained no 
new code and was in fact just a fully 
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Intersil 

Systems 


MEETS THE DEC® DH-11 CHALLENGE 

The challenge; increased communications capacity, increased reliability, and improved 
technology - at decreased cost. 

That’s not a challenge for Intersil Systems. 

• Increased Capacity - One Intersil DH-11 replaces nine DEC card slots 

• Increased Reliability - Only one chance for a failure instead of nine. 

• Improved Technology - The latest microprocessor based technology is employed. 

• Decreased Cost - 66% less! One Intersil DH-11 costs 66% less than one DEC DH-11. 

In addition the Intersil DH-11 offers these features: 

• 16 Asynchronous local or remote channels on the UNIBUS® 

• DMA output to free the CPU from Interrupt handling. 

• On-board diagnostics. 

• Complete software compatibility. 

IDH11 



i CPU ! 
L_! 


POP 11 UNIBUS 



■ I 

I MEMORY 
L_ I 



I 

r —^ -1 

I I/O 

I_ I 


16 ASYNCHRONOUS CHANNELS 
TO LOCAL OR REMOTE TERMINALS 


Get all the challenging facts. Call (408) 743-4300, TWX: 910-339-9369, or write 
Intersil Systems, Inc., 1275 Hammerwood Avenue, Sunnyvale, CA 94086 

* Trademarks of Digital Equipment Corporation 
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PATCHed version of 4A. It was released 
in 1975 and marks the end of RSTS 11. 

RSTS/E Version 5A/21. July 

1973. It no longer supported the 
11 /20. SYSGEN was under DOS but at 
least you had batch command files to 
help. Job max was still 8K words for 
users but 16K for privileged users. 
Swap max had again been increased to 
allow for 32 users. The maximum 
machine size was 128K words, of 
which 124 was usable. Commercial Ex¬ 
tensions were available which included 
Sort, lAM, QUE, SPOOL. Decimal 
Arithmetic package. Hardware in¬ 
cluded the RP03, which was the 40M 
byte disk drive. DHIIs and 1200 LPM 
printers. APPEND as a command was 
introduced. 

RSTS/E Version 5B/24, November 

1974. It allowed for CCLs as long as 
you created them during SYSGEN time. 
EDIT and EDITCH were introduced. 
Auto answer was introduced for 
SYSGEN generations and so were 
multiple SWAP files. There was a hid¬ 
den option for overlapped seek with 
multiple disks. Among the new BASIC 
PLUS commands were CVT$$, 
STRINGS$. STATUS. BUFSIZ. It was an 
extremely untidy release and so four 
months later ... 

RSTS/E Version 5C-01. March 

1975. This In fact was a PATCHed ver¬ 
sion of Version 5B and contained no 
new commands. 

RSTS/E Version 6A-02. August 
1975. Support was now for the 11 /34, 
11/35. 11/40. 11/45. 11/60 and 
11 /70. The swap max had been in¬ 
creased to 63 users and maximum 
memory on the 11 /70 was now 2M 
bytes. The RP02 and the RP04 were 
added, as was the concept of multiple 
run time systems: i.e.. COBOL. 
FORTRAN. SORT11 were all added. 
XBUF was introduced. Pseudo 
keyboards. STATS was a hidden option. 
The VT50 was the replacement for the 
original VT05 and TU16‘s were 
available. 

RSTS/E Version 6B-02, February 

1977. SYSGEN was now under RT11. 
New hardware included RKOSFs. RK06, 
RP05. RP06, DZ11. LAI 80. Contiguous 
files were allowed. CCLs could be added 
at run time. EXTEND mode was intro¬ 
duced. Echo control mode 8. Among 
the run time systems allowed were 
BASIC PLUS 2. FORTRAN, COBOL, 
RPG2. APL. RMS11. RT11 and of 
course yet another new BACKUP 


package. 

RSTS/E Version 6C-03, February 

1978. TECO and VTEDIT were released 
as part of a DECUS supported package. 
DECNET was introduced. DATA- 
TRIEVE. DIBOL/DECFORM. PIP.SAV 
replaced the old PIP and PIP EXTEND. 
Sexy lights were available. Also the 
program STATUS from Martin Min¬ 
now. which is still not supported by 
Digital. Hidden options included the 
words GET BLOCK and SPEC %. 

RSTS/E Version 7.0, December 

1979. Supported CPUs now included 
the 11/24. 11/34. 11/35. 11/40. 
11/44. 11/45. 11/60. 11/70. RDC 
was introduced. SYSGEN was now 
under RSTS during time sharing and 
data caching was introduced. The RSX 
monitor allowed 31K word programs. 
Maximum memory on an 11 /70 was 
now 4M bytes. Resident libraries were 
introduced. XBUF for line printers. 
SAV/RES for backup. A new version of 
FIP called large file FIP was created, 
and by now they had of course stolen 
the switch panel so that sexy lights 
were no longer possible. 

RSTS/E Version 7.1, Februrary 
1982. This now uses separate I 8i D 
space to relieve the small buffer prob¬ 
lem. DECNET route through is allowed. 
TRACE. BREAK and DUMP are all hid¬ 
den options. 


RSTS/E Version 7.2, August 1982, 
supports new UDA50 disks; i.e.. the 
RA80. The typical machine is now an 
11 /44, 1M byte of memory. RA80. 
TS11, DZ11E for under 50.000 pounds 
including a general licence. 

RSTS/E Version 8.0. April 1983. 
Support for the recently announced 
PDP Micro 23. BASIC Version 2 now 
allows 31K words and no overhead for 
the use of RMS. 

It is fair to say that the number of 
users has always been underestimated: 
Digital’s own figues are as follows: 
December 1973 — 150 users 

August 1975 — 1.200 users 
July 1977 — 3,100 users 
December 1979 — 5.000 users 
It is now thought that there are 
well over 10,000 licenced users and at 
least an equal number of unllcenced 
usersFH. 

RSTS has a future, as Digital has 
yet to implement its greatest secret 
weapon, separate I & D space in terms 
of the application programs. It is in¬ 
teresting to note that RSX11M PLUS 
Version 2 allows the programmers to 
have separate 31K word areas for both 
I 8i D; in other words it should be pos¬ 
sible under RSTS to have a total 62K 
word user area. RSTS remains the key 
commercial time sharing operating 
system that Digital sells. ^ 
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The z-Chip™. A single chip does 
what anyone else takes a board (and 
an expansion slot) to do. 

With the Bridge and z-Chip, stan¬ 
dard CP/M software will run on the 
DEC Professional (or any DEC com¬ 
puter based on the 11/23 chipset). 

CP/M means access to some pretty 
potent, powerful, popular packaged 
software. 

Packages like dBase 11™, SUPER¬ 
CALC™, and WORDSTAR®, to name 
a few. 


Virtual Microsystems’ Bridge™ 
family of integrated hardware and 
software tools means CP/M for just 
about any DEC system. From per¬ 
sonal to VAX™. 

And Virtual Microsystems means 
a single source for easy installation, 
support, software shopping (we 
inventory and sell all the best CP/M 
packages, on allW£ media) and 
service. 

So if you’d like your DEC hard¬ 
ware to run the software that has 


*The Bridge with z-Chip: $495 for the DEC Professional 350; $695 for the DEC 11/25 '' and DEC Micro-11''. Trademarks: DEC Profes¬ 
sional, VAX, 11/23,Micro-ll, Digital Equipment Corporation; dBase II, Ashton-Tate; SUPERCALC, Sorcim Corporation; z-Chip and 
Bridge, Virtual Microsystems. Registered Trademarks: CP/M, Digital Research, Inc.; Wordstar; MicroPro International Corporation. 


made microcomputers growth 
industry (without the hea^ches of 
dealing with different computer 
hardware, computer dealers, and 
computer formats) start with one 
simple phone call. 

(^415) 841-9594 
Ask for Dave Scott. 
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virtual 

microsystems 


2150 Shattuck Ave., Berkeley, CA 94704 










QUEUING TO A SPECIFIC DEVICE 

QUEDEV.B2S 

by Terry Ridgers, DuPont Canada. Corunna, Ontario 


QUEDEV is written and compiled in BASIC + 2. It can be called 
from any BASIC + 2 main line program. The main line file name .ODL 
must contain QUEDEV i.e., .FCTR MAIN-LIBR-* (QUEDEV-LIBR, etc.). 

QUEDEV when called and when passed valid arguments will 
queue files to any of the LPn:, BAn: and RJn: devices. 

QUEDEV uses five passing arguments, namely: 

1) SV.FIL$ - full file name as a string or as a string variable. 

2) SV.DEV$ - Device name: 

must be of the form “LP", “BA”, or “RJ". 

3) SV.UNIT% - Unit number 

i.e., if sent to LP1: SV.UNIT% must = 1%. 

4) SV.CPY% - Number of copies to be sent to the line printer 

(valid only for the line printer) 

5) SV.DEL% - Delete list file after printing to LP: 

1 % - yes 

0% - no 

(valid only for line printer) 

NOTE: For unit number, number of copies and delete, the values 
passed must be integer values. If real values are passed then incor¬ 
rect number of copies etc., may occur. 

Examples of possible calls from the Main Program are: 

1) CALL QUEDEV (“SY: (1,91)TEST.LST". “LP".0%. 2%. 1%) 
Will queue ‘SY:(1.91) TEST.LST” to LP: for two copies and will delete 
"SY:(1.91)TEST.LST" after listing the last copy. 

2) SV.CTL$ = “DRl :(18.5)BATCH.CTL" 

CALL QUEDEV(SV.CTL$, “BA", 1%, 0%. 0%) 

This call will queue "DRl: (18,5) BATCH.CTL" to BA1: and it 
ignores the number of copies and will not delete the file regardless 
of what is passed as the last two arguments. 


1000!> 





& 

& 

! 

f 

MAIN SUB-PROGRAM 1000 - 9999 


& 

& 

IF SEG$(SV.DEV$,n,2t) <> "LP" THEN 

! 

ONLY LP: DEVICE CAN .SPECIFY 

& 

& 



SV.DELIA = 

OA! 

DELETE 

& 

\ 


GOSUB 10000 

I 

QUEUE FILE SV.FIL$ TO DEVICE 

& 

\ 


SUBEXIT 

! 

END OF SUB PROGRAM TO QUEUE 

T04 




! 

DEVICE 

& 

ELSE 

SV. DELIA = OA 

! 

INITILIZE TO NOT DELETE 

& 

\ 


FOR XA = 1A TO SV.CPYA - 1A 

I 

INCREMENT THRU # OF 

& 




! 

NON-DELETE COPIES TO LP: 

4 4 

\ 


GOSUB 10000 

! 

QUEUE SV.FILA TO DEVICE BUT 

4 




! 

DON'T DELETE 

4 

\ 


NEXT XA 

1 

NEXT NON-DELETE COPY? 

4 

\ 


SV.DELIA = 1A 

I 

SET TO DELETE THIS COPY 

4 




! 

(WILL DELETE ONLY IF 

4 




! 

SV.DELA IS ALSO 1A 

4 

\ 


GOSUB 10000 

! 

QUEUE SV.FILI TO DEVICE BUT 

4 




! 

THIS TIME DELETE FILE 

4 

\ 


SUBEXIT 

I 

END OF SUB PROGRAM TO QUEUE 

T04 




! 

DEVICE 

4 

10000 

!< 




4 

s, 


! 

! 

SUBROUTINE - QUEUES FILE 

TO 

DEVICE 

4 

4 

T. ■ 

!‘ 

1$ 

= SYS(CHR$( 6A) 

+ ! 

SYS CALL TO FIP 

4 

4 



CHR$(-28A) 

+ ! 

SPOOL REQUEST CODE 

4 



SPACE$(2A) 

♦ ! 

NOT USED 

4 



SEG$(FSS$(SV.FIL$,1A),5A,12A) 

♦ ! 

FILE NAME STRING SCAN TO GET 

4 




! 

FILE EXTENSION 

4 




! 

IN RADIX 50 FORMAT 

4 



SV.DEV$ 

■►! 

QUEUE TO DEVICE: 

4 



CHR$(SV.UNITA) 

♦ 1 

AS UNIT 

4 



CHR$(0A) 

♦ I 

UNIT # FLAG 

4 



CHR$( OA) f CHR$(0A) 

♦ ! 

MUST BE ZERO 

4 



CHR$(SV.DELA • SV.DELIA • 36A) 

♦ I 

DELETE AND NO HEADER IF = 36 

4 



CHR$(0A) 

♦ 1 


4 



SPACE$(2A) 

+ 1 

NOT USED 

4 



SEG$(FSS$(SV.FIL$,1A),23A,26A) 


FILE NAME STRING SCAN TO 

4 




! 

DEFINE DEVICE # AND UNIT # 

4 




! 

AND UNIT # FLAG WHERE FILE 

4 




! 

TO BE SPOOLED FROM 

4 



SPACE$(i4A)) 

! 

NOT USED 

4 

\ 

RETURN 

f 

END OF QUEUING TO DEVICE 

4 

32767 

SUBEND 

! 

END OF QUEUING TO DEVICE 

4 




! 

SUB PROGRAM 

4 


Line Numbers 


#10000 1000:3 1000:7 1000:10 


Variables 





SV.CPYA 

#1 

1000:6 


UNITA,SV.CPYA,SV.DELA) 







! SUBPROGRAM QUEUES FILES TO VARIOUS DEVICES4 

SV.DELA 

#1 

10000 


! SV.FIL$ 

- FILE NAME TO QUEUE 

4 





! £V.DEV$ 

- DEVICE NAME 

IE: BA:,LP:,RJ: 

4 

4 

SV.DELIA 

(?1000:2 

@1000:5 

@1000:9 

! SV.UNITA 

! SV.CPYA 

- DEVICE UNIT # 

- NO OF COPIES 

4 

4 

SV.DEV$ 

#1 

1000 

10000 

! 

j 

APPLIES TO LP: 

ONLY 

4 

4 

SV.FIL$ 

#1 

10000 

10000 

! SV.DELA 

! 

- DELETE FILE AFTER 

1 - YES 

4 

4 

SV.UNITA 

#1 

10000 


1 

! 

0 - NO 

APPLIES TO LP: 

4 

4 

T.1$ 

@10000 




§> 1000:6 


10 

I 

! SUB PROGRAM DESCRIPTION AND MODIFICATION LAYOUT 


SUB PROGRAM: 


CUEDEV 


PROGRAMMER: T. RIDGER.S 

- DUPONT CAN. 

ST. CLAIR RIVER WORDS 
CORUNNA, ONT. 

NON IGO 


SUB-PROGRAM DESCRIPTION: 


THIS SUB PROGRAM CAN BE CALLED FROM ANY BASIC ♦ 
2 PROGRAM TO QUEUE FILES TO VARIOUS DEVICES. 

« 

MODIFICATION LOG; 


VERSION 

DATE 

DESCRIPTION 

001 

OH-Aug-02 

ORIGINAL RELEASE 

999 

DD-MMM-YY 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 


Built-in Functions 


4 

CHR$( ) 

10000 

10000 

10000 

4 


10000 



4 





4 

FSS$( ) 

10000 

10000 


4 





4 

SEG$( ) 

1000 

10000 

10000 

4 





4 

SPACE$( ) 

10000 

10000 

10000 

4 





4 

SYS( ) 

10000 




Please check the use of the following: 
T. 1$ 


Subprogram name: QUEDEV 

There were identifiers listed, 

and 39 references to them. 

17 work-file entries (3 disk blocks) were used. 


10000 


10000 


10000 
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vox 

VAX OFFICE EXCHANGE 


HAMILTON'S COMPLETE OFFICE SYSTEM 


IWATRIEVE 
.(PBMS) ' 






;£> WORD PROCESSING 


GRAPHICS 



RENTAL OR SALE Of VOX complete or by module with or without VAX hardware. 

TIMESHARING VOX and full range of DEC layered products and software tools. 

HARDWARE CONFIGURING All DEC systems and peripherals together with 
Hewlett Packard ahd Tektronix graphic devices, Dataproducts and ietter quaiity 
printers, pretested and instaiied on your site with mahufacturers’ warrahty 
ahd maihtehahce availabie. 


VAX, Datatrieve are trademarks of the Digital Equipment Corporation. 



HGL Software Hamilton Rentals 


THE HOUSE OF VAX 


6 Pearl Court, Allendale, NJ 07401 
TOLL FREE 800-631-0298 
In New Jersey 201-327-1444 


415 Horner Ave, Toronto, M8W4W3 
TOLL FREE Ont. & Oue. 800-268-2106 
All Other prov. 800-268-0317 
In Canada 416-251-1166 


NEW YORK • DALLAS • MONTREAL • CALGARY • LONDON • PARIS • DUSSELDORF 
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C B E D I T 
The $200 RSTS/E» 

WORD PROCESSOR 

Version 3.0 includes list processing, optional 
print-time op>erator input, on-screen help and 
directory management plus total device independence . 
All files are standard ASCII with no control codes. 
Data loss protection on system crash or operator 
error. 

Window edit includes add, insert, global locate, 
global change, block replace, block delete, block 
copy, block move, document merge, etc. Fully 
formatted output with page numbers, headers, footers, 
margins, indentation, justified text, underscore, 
super/subscript, center, multiple spacing, etc. 
Automatic or manual pagination with unlimited 
document length. 

Table driven Video and Printer modules support 
3ny VDTs (including 132 column and 66 line) and any 
printers. Mixed units on same system are OK. 

Price: $200 on 9-track/300 bpi plus shipping. 
Other media available. User’s manual and Basic-Plus* 
source are included. 

T. F. Hudgins ^ Associates, Inc. 

P.O. Box 109^6 Houston TX 77292 
Wes Seago 713/682-3651 

•TM Digital Equipment Corporation 
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INTERFACES LIMITED 

to 


... A Step Ahead 


► Interfaces Limited carries DEC* Systems and supplies 

► Interfaces Limited will help modernize and increase 

office efficiency. 

^ Interfaces Limited will advise on the proper computer 
equipment and programs. 

SYSTEMS SALES 

11/23 W/128K RLV21-AK RL02-AK VT102 RT11 license @ $17,700.00 

11/23 plus w/256 RLV22-AK RL02-AK VT102 CIS 500 license @ $19,500.00 

11/24 w/256 RLV11-AK RL02-AK VT102 CIS 500 license @ $25,200.00 

VAX 11/750 1 MEG. RM03. TS11-CA, TU58. DZ11A. LA38 VMS Operating System, 
DIBOL/COBOL Program Generator (Used) CALL 


TERMINALS (new) 

VT100-AA 

$1320.00 


Printer (new) 
LA120-AA 

$1925.00 

VT101 

$ 950.00 


LA120-BA 

$1950.00 

VT102 

$1285.00 


LA120-RA 

$1690.00 

VT131 

$1340.00 


LA 100 

CALL 

VT125 

CALL 


LA34 

$ 750.00 

DZ11-B 

$1200.00 

OPTIONS 

M7819 

$1000.00 

DZ11-E 

$2700.00 


DH11-AD 

$4500.00 


412 - 941-1800 CdO 

OiQfTAi 
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RSTS/E DISK OPTIMIZATION . . . 

. . . continued from page 18 

2). Recently created files are frequently accessed, so 
putting them at the front of the list decreases open time. 

Closer inspection shows these arguments against using 

NFF. 

1) . In accounts with more than 31 files, it requires an 
extra UFD access (a physical write access), to create a new 
file. All of the name blockettes must be read to make sure 
that the file does not already exist. Then the pointers in both 
the first and the last name blockette must be rewritten. If 
NFF is not used, only the last name blockette must be 
rewritten. Note too. that these are physical accesses to disk 
that are not cached. 

2) . Recently created files are very likely to be deleted, 
resulting in two side effects. First, two name blockettes 
must be rewritten when the file is deleted, and they are 
likely to be in two separate UFD blocks. Without NFF. it is 
likely that they will be in the same UFD block. Second, in 
many environments such as word processing and develop¬ 
ment systems, most files are created, opened only once for 
reading, and then deleted. The main advantage of NFF. 
quick file opens, is minimized. 

BENCHMARKS 

Typical RSTS/E systems are difficult to objectively 
measure. System load varies from minute to minute and 
hour to hour. Monitor statistics are easy to gather but diffi¬ 
cult to interpret (e.g.. what does it mean if directory ac¬ 
cesses decrease: less activity, a slower system, or a more ef¬ 
ficient UFD structure?). One way to eliminate uncontrollable 
variables is to run a single Job on an otherwise unused sys¬ 
tem and measure wall clock time. Unfortunately, single-user 
benchmarks are poor indicators of multi-user performance. 

At the System Performance House, we have developed 
a set of 12 programs which run simultaneously, simulating 
a multi-user environment. They are heavily disk I/O bound 
programs which perform a mix of file creations, opens, 
closes, lookups, logins, logouts, swaps, run-time system 
loads, and random file accesses. The programs run for a 
fixed length of time and measure the number of each type 
of operation they can perform during the allotted time. 
Although they overstate the true performance differences 
from changes in disk I/O efficiency, they are very sensitive 
to small performance changes. 

These benchmark programs vividly demonstrate the 
performance gains generated by the optimizations described 
above. The benchmark programs showed 50 percent more 
throughput on this arrangement than they did on the iden¬ 
tical system generated by another commercially available 
' disk structuring" program. This increase was due to both 
faster disk accesses and fewer directory accesses. 

REFERENCES 

1. Banks. Scott. "RSTS Disk Directories." RSTS Profes¬ 
sional. Vol. 1. No. 1: Vol. 2. No. 1; Vol. 2. No. 3: and Vol. 2. No. 4. 

2. Mayfield. Mike. "RSTS/E Disk Internal Structures." 
Proceedings of the Digital Equipment Computer Users So¬ 
ciety. April. 1978. 
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WATCH and RINGME 

By Maury Pepper and Greg Wenzel, STS. Inc., St. Louis. MO 


100 JOBNO* = CVT$»(RI0HT(SYS(CHR$(7J)),7*),-U) I Get Job # From CC 4 
\ COSUB 1000 IF JOBNO$ : " I Request Job * 4 
\ GOTO 32767 IF JOBNO* = " I Exit If No Job # 4 
\ ON ERROR GOTO 32767 I Set Error Trap 4 
\ JOBNO* : VAL(JOBNO*) I Validate Job « 4 
\ GOTO 32767 IF JOBNO* < 1* OR JOBNO* > 66* t 4 


We found that after submitting a task build to ATPK, 
programmers were frequently using SYSTAT to see if the 
job had terminated. The two programs included here were 
designed to increase productivity and ease the anxiety of 
those waiting for a job to finish. 

Any job can be WATCH’d. When the job disappears 
from the job table (i.e.. when it is killed or logged out). 
RINGME will send three bells (beep, beep, beep) to the ter¬ 
minal which originated the WATCH. We set up a CCL for call¬ 
ing WATCH 

UT CCL WA-TCH = [1.2]WATCH.BAC:PRIV 0 
The syntax is: 

WATCH jn watch job number jn 
or WATCH/jn watch job number jn 
or WATCH program will prompt for job number 
WATCH will determine which terminal you are on and then 
spawn a job to run RINGME — passing the terminal number 
and job number to RINGME in core common. Both programs 
should be saved with a <232> protection code. RINGME 
will run "logged-out" and detached. Its left as an un¬ 
necessary exercise for the purists to have RINGME log itself 
into the originator's account. 


110 ICB* = MID(SyS(CHR*(6*)tCHR*(26*)*CHR*(0*)*CHR*(0*)),ll*,1*) 4 

! Determine Calling Keyboard & 

120 1$ s SYS(CHR$(6J)-»-CHR$(-10t) + 'SY;[1,2]RINGME.BAC‘) & 

I Convert Program File Spec For Job Spawn & 

130 M$ = SYS(CHR$(6|)-..CHR$(2UJ)^CHR$(0%)+CHR$(0t)+MID(I$,5l,8|)+ & 

CVT|$(J0BN0t)+KB^.* VMIDC I$,23* )) & 

! Spawn "RINGME* & 

140 GOTO 32767 I Exit & 

1000 INPUT "Watch Job # ";J0BN0$ ! Request Job # & 

\ RETURN 4 


32767 END 


1 EXTEND 

10 ! Program; RINGME. BAS 4 

! Author: Greg Wenzel/Maury Pepper 4 

I Date; 28-Jan-83 4 

100 J$ s SYS(CHR$(7t)) I Get Core Common 4 

110 IS = ASCII(MID(J$,3S,IS)) I Determine KB # For Broadcast 4 

120 1$ = SYS(CHR$(6S)+CHR$(-13S)fCHR$(255S)fCHR$(-lS)^CHR$(-8S)) 4 

\ ON ERROR GOTO 140 I Lower Priority to -8 4 

130 SLEEP 3 4 

\ 1$ r SYS(CHR$(6S)-^CHR$(26S)-*-CHR$(CVT$S(J$))-^CHR$(0S)) 4 

\ GOTO 130 I Loop until SYS call fails 4 


1 EXTEND 

10 I Program: WATCH.BAS 

! Author: Greg Wenzel/Maury Pepper 

I Date: 28-Jan-83 


140 

\ 

4 

4 

4 32767 


ON ERROR GOTO 32767 4 

M$ = SYS(CHR$(6S)+CHR$(-5S)+CHR$(IS)+CHR$(7S)^CHR$(7S)-*-CHR$(7S)) .4 

! Broadcast 3 Bells to Terminal 4 

END 


BACdtmi© can do it all! 


BAC into RTS / BAG into MAC / BAG into BAS 






BACmac is a unique software tool, running 
under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RTII — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E. RTII, Macro-I I and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Western Distributor: 

Telecom Computer Systems, Inc. 
P.O. Box 03285 
Portland. Oregon 97203 
503/286-5122 


H nOQI Advanced Digital 
MUUOl Office Systems 


Eastern Distributor; 

New England Micro Technology, Inc. 
P.O. Box 767 
Marblehead, Mass. 01945 
617/631-6005 
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MEMO 

A COMPUTERIZED NOTE FILE 



CIRCLE 11 ON READER CARO 


By Mark Gilmore. Data Processing Dept. 

California State University at Long Beach, Long Beach, CA 

This program is intended to be an aid to people who are 
constantly logged in and working on their RSTS systems, 
and who are also subject to frequent interruptions from 
bosses, users, or their own brilliant thoughts. MEMO will 
allow you to store your gems of wisdom (or your boss’ 
demands) where they won’t be forgotten (or can be "filed" 
indefinitely). 

Memo numbers, once assigned, are never re-used (even 
though the associated memo may be deleted). This allows 
you to keep some sort of record based on memo number if 
you wish to make paper copies of everything. Memo 
numbers are assigned starting with number one and in¬ 
crementing by one. 

The program creates a file called MEMO.DAT on the 
disk specified by the variable SY.MEMO.FILE$ in line 1110. 
Change this variable to specify the disk you want the memo 
file created on. Once created, the file can be moved to any 
other disk on the system. The program will check all the 
disks, looking for a memo file that it has read/write access 
to. This disk scan routine is the only reason that MEMO 
must be privileged, and privileges are dropped immediately 
after this scan is completed. The program will not currently 
handle systems with more than 20 disks. To allow more, 
change the dimension statement in line 1010. 

The MEMO.DAT file is built with a linked list structure. 
Records are added to the file as needed, but they are never 
deleted. Instead, they are added to the list of free (available) 
records. This means that the file can grow to almost any size 
(more memos than you’ll want to keep anyway) but that it 
can never shrink (until someone writes a program to com¬ 
press the file — this is left as an exercise for the reader). 

It is possible to remove privileges by placing disk names 
to be scanned in a DATA statement. These names should be 
placed in the DISKS$ array and the variable DISKS% should 
be set to the number of disk names. Do this in line 1100 
before the GOTO 15000, and delete lines 15010 — 15020. 

If the disk scan feature is not wanted at all (the file 
specified in SY.MEM0.FILE$ is the only possibility) delete 
lines 15010 — 15060 and make the following changes: 

15010 MEMO.FILES = SY.MEMO.FILES 

\ OPEN MEMO.FILES FOR INPUT AS FILE M% 

\ IF (STATUS AND 1024%) = 0% THEN 1110 
ELSE 

PRINT “Don t have write access to ”; MEMO.FILES 
\ GOTO 32767 

! If we can’t write on the file forget it. 

IF ERL = 15010 THEN RESUME 20050 

! Memo file didn’t exist — create it. 
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The PROMPT command allows the user to change the 
input prompt. This allows a little "customizing" for each 
user, and could be used to store an important note that the 
user wants to be reminded of the next time the program is 
run. The prompt may aiso be set to print escape sequences 
to allow the use of some of the special functions available on 
video terminals (note that this may have undesirable effects 
if you find yourself on a different terminal type than you an¬ 
ticipated). This feature may be disabled by removing the 
ioop in lines 6020-6030 which converts CHR$(27)s to 
CHR$(155)s in the prompt. 

For video terminals, it may be advantageous to modify 
the PROMPT command to allow the user to specify several 
"set-up" sub-prompts. These could include (1) a set-up string 
to be printed when the program is first run; (2) an input 
prompt (available now): (3) a string to print before the 
response to a command; and (4) a string to reset the ter¬ 
minal at the end of execution. For example, this would allow 
the VT100 user to define the lower part of his screen as a 
scrolling region for program responses, print a double-width 
"Function?" at the top of the screen, move to the scrolling 
region to see the response, and reset the terminal when he 
exits. 

Another feature of the program is that the instructions 
are printed automaticaliy the first time the program is run. 
This is possible quite simply due to the fact that the first 
time the program is run there is no MEMO.DAT file. This 
feature could be considered for inciusion in any program 
that creates a data file (or anything else unique to the first 
run). 

While this program has been tested, the disciaimer in 
the program text should be taken seriously. 1 am interested 
in hearing about problems or suggested changes, but 1 will 
not promise to do anything about them. Finally, if you find 
ways to make this program more efficient, please feel free 
to do so. The inefficiencies are there so that you may have 
the enjoyment of finding and fixing them. (Thus the larger 
the inefficiency, the greater my generosity in leaving it for 
you to find.) 


A LIST OF FUNCTIONS 


Add Adds a memo to your memo file. 

Delete Removes a previously added memo. 

List Lists ail memos in the file. 

Prints entry date and subject. 

Type Prints the contents of one or more memos. 

Several options are available: 

Type Prints a memo. Program asks which one. 

Type 10 Prints memo 10. 

Type * Prints all memos. 

Type STRING Prints all memos with the specified STRING 
in the subject field. 

An output file may be specified as follows: 

Type * > Filename 

Search Lists memos with a specific string in their subject fields. 


More Appends more information to an existing memo. 

Prompt Changes the current prompt to something else. 

Help Gives some basic help to the user. 

Exit Leaves the program. 

A memo number may be specified with the Type. Delete and More commands. 


100 


A Computerized Note File 
by Mark Gilmore 

based on an idea by John Sandhoff 


110 


(C) Copyright 1982, by Mark Gilmore. No part of this 
publication may be reproduced, transmitted, tran¬ 
scribed, stored in an information storage and retrieval 
system, or translated into any language or computer 
language, in any form or by any means, including, but 
not limited to, electronic, mechanical, magnetic, 
optical, chemical, manual or otherwise, without the 
inclusion of this copyright notice, except in the 
case of brief quotations embodied in critical articles 
or reviews. 

The author makes no representations or warranties 
with respect to the correctness of the contents hereof 
and specifically disclaims any implied warranties of 
merchantability or fitness for any particular purpose, 
or that the software described herein will operate as 
documented on any computer of any manufacture with 
any operating system at any time. Further, the author 
reserves the right to revise this publication and to 
make changes from time to time in the content hereof 
without obligation to notify any person of such 
revision or changes. 

This software may be freely distributed with the 
inclusion of this copyright notice, through any 
non-profit means of distribution. Distribution 
of this software for profit is expressly prohibited 
without the written consent of the author. 

All characters in this book (with the exception of 
the author) are fictitious. Any resemblance to actual 
persons, living or dead,is purely coincidental. 
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This program allows users to have the computer keep 
track of notes that they may wish to write to 
themselves, acting as a computerized note pad or 
filing box. 

Memos are stored in a linked list. New records are 
added to the memo file as needed, and the file may 
grow to any size. However there is no PACK function 
in this version, so deleting memos from the file 
will not shrink the file, but will result in records 
being added to the free list to be reallocated later. 

One feature of the PROMPT command which may be 
useful is that it can be used to store a very 
important memo that you may wish printed every 
time you run the program (to 490 characters). 


130 


VARIABLES 


A$ 

A.NUMt 

BUF$ 

CALL* 

CALL! 

CALL2S 
CHOICE* 
CRLFI 
CUR.MEMO! 
DELNUM* 

DEV$ 

DEVCNT* 

DEVNAM* 

DEV0KB* 
DISKS* 
DISKS* (20) 
F* 

F.LINKI 
FIRST* 
FIRST.RUN* 
FOUND* 

FOB* (30) 

FR.REC* 

FREE* 

HEAD* 

I* 

INIT$ 

JUNK* 

LAST* 

LINKAFTER* 

M* 

M.NUM* 

MAX.MEMO* 
MEM.NUM* 
MEMO* 
MEMO.DAT* 
MEMO.DATE* 
MEMO.FILE* 
MEMO.LINE* 
MEMO.NUM* 


General use string 

Memo number to add to (MORE) 

FIELD to store prompt string 

Returns value of function call 

Target string for SYS call 

Returns value of function call 

Users choice of function 

Carriage return/Line feed combination 

Stores memo number currently listing 

Memo number to delete 

Device name for disk lookup 

Table of maximum unit numbers on system 

Device name table 

Number of disk devices 

Index into DISKS* table 

Table of disk names 

Flag for output file specified 

FIELD - Link to next record in list 

Holds first record num in FNFIRST.REC* 

Flag to print help for first-time user 

Contains result of SEARCH function 

Returned values from SYS call 

Free record found by FNUNLINK 

FREE - constant to link pointers 

Flag for header printed in SEARCH 

Scratch variable 

Field used to initialize MEMO.DAT file 
Scratch variable 

Last record number (in functions) 

Record to link new data after (FNLINK*) 
Flag for memo number specified in TYPE 
Memo number to add to file in ADD 
FIELD - Highest memo number used 
Memo number from command 
The memo to be placed in the file 
FIELD - MEMO data field (the memo text) 
FIELD - The date the memo was filed 
Name of memo file 
A line of data to add to the memo 
FIELD - Memo number in disk record 
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MEMO.SEQI 

MEMO.SPEC$ 

MEMO.UNUSED 
ND* 

NEW.PROMPTS 

NULL.LINK$ 

NXT.PTR$ 

NXT.RECJ 

NXT.REC$ 

OLDCALL* 

P.NUMJ 

PART. OF. THE. NEW. 
PREV.REC* 

PRINT.FILE$ 
PROMPT$ 

PROMPT.LEN$ 
PRV.PTR$ 

PTR$ (i*) 

R.L1NK$ 

R.TYPE$ 

HEC% 

REQUESTS 
SEARCHS 
STARTS 
SUB.ADDS 
SUB.SEARCHS 
SUB.TYPES 
SUBJECTS 
SY.MEMO.FILES 
TEMP.MEMS 
THIN.AIRS 
TODAYS.DATES 
TYPES 

TYPE.FILES 
UNUSED.FOR.NOWS 
USEDS 
VER.DATES 
VERSIONS 


FNFIRST.RECS 

FNLAST.RECS 

FNLINKS 

FNNEXT.RECS 

FNPREV.RECS 

FNUNI.INKS 


FIELD - Next available memo number 
Memo number/string/* in TYPE 
FIELD - unused area in MEMO base rec 
(END) - constant to link pointers 
The user-specified new prompt 
Used to Indicate end of linked list 
Pointer to next record 
Next record number (FNNEXT.RECS) 

Pointer to next record 

Save previous value of CALLS 

Number of memo to print 

PROMPTS A line of new prompt 

Previous record number (FNPREV.RECS) 

Output file for TYPE function 

Prompt for user input 

FIELD - Length of PROMPTS in file 

Pointer to previous record 

FIELD - List pointers 

(free/used; start/end) 

FIELD - Link to prev rec (reverse link) 
FIELD - Record type (free/used) 

Record number passed to functions 
User input 

String to search memo subjects for 
START - constant to link pointers 
True if ADD being used as subroutine 
True if SEARCH being used as subroutine 
True if TYPE being used as subroutine 
Subject of memo 

Name of memo file on system disk 
Temp storage for SEARCH 
Record number to create in FNUNLINK$ 
Obvious 

Record type - FREE or USED 
File to TYPE memos to 
FIELD - Anything you want 
USED - pointer to link pointers 
Date of current version 
Current version/revision data 

FUNCTIONS 

Returns first record in a list 
Returns last record in a list 
Links a record into a list 
Returns next record in a list 
Returns previous record in a list 
Unlinks a record from a list 


DIM PTR$(i<t), FQBJOO), DISKS$(20) 

\ USED* = Of 
\ FREE* = 2f 
\ START* = 1* 

\ ND* = 2* 

\ NULL.LINK! = CHRKO*) CHR$(0*) 

\ CRLF$ = CHR$(13*) ♦ CHR$(10*) 

\ FIRST.RUN* = 0* 

\ TODAYS.DATE* = 

SWAP*(CVT$*(MID(SYS(CHR $(6*)+CHR $(-3*)),27*,2*))) 

PROMPT* = "Function? " 

\ VERSION* = "1b " 

\ VER.DATE* = "Nov 82" 

\ TYPE.FILE* = "_KB:MEMO.KBD" 

\ SY.MEMO.FILE* = "_DB0:MEMO.DAT" 


ON ERROR GOTO 32000 
OPEN TYPE.FILE* FOR INPUT AS FILE #1* 
GOTO 15000 


I Set up some defaults 
I and go find the data file. 


2* 

AS 

PTR*(1*), 

1 Used start pointer 

2* 

AS 

PTR*(2*), 

1 Used end pointer 

2* 

AS 

PTR*(3*), 

1 Free start pointer 

2* 

AS 

PTR*(4*), 

1 Used end pointer 

2* 

AS 

PROMPT.LEN*, 

1 Length of prompt 

2* 

AS 

MAX.MEMO*, 

1 Highest record counter 

2* 

AS 

MEMO.SEQ*, 

1 Memo sequence number 

8* 

AS 

UNUSED.FOR.NOW*, 


490* 

AS 

BUF* 

1 FIELDS for record 1 

1 (main pointer block) 

2* 

AS 

F.LINK*, 

I Forward link 

2* 

AS 

R.LINK*, 

1 Reverse link 

1* 

AS 

R.TYPE*, 

1 Record type 

2* 

AS 

MEMO.NUM*, 

1 Memo number & 

2* 

AS 

MEMO.DATE*, 

1 Memo date & 

3* 

AS 

MEMO.UNUSED*, 

1 Unused 

500* 

AS 

MEM0.DAT* 

1 Memo data 

1 FIELDS for data records 


FIELD tUf, 


\ GET #»<, RECORD 1* 

\ IF CVT**(PROMPT.LEN*) > 0* THEN 

PROMPT* = LEFT(BUF*, CVT**(PROMPT.LEN*)) 


3040 

3050 


3060 

5000 


PRINT 

PRINT "MEMO "; 

PRINT RIGHT(SYS(CHR*(6)fCHR*(9)-*-CHR*(0)),3) 
PRINT "Version ";VERSI0N*;" ";VER.DATE* 
PRINT 

GOTO 11000 IF FIRST.RUN* 


PRINT 
CLOSE 1* 

OPEN TYPE.FILE* AS FILE #1* 

A.NUM*, P.NUM*, DELNUM* = 0* 

SUB.ADD*, SUB.SEARCH*, SUB.TYPE* = 0* 

PRINT PROMPT*; 

INPUT LINE #1, REQUEST* 

REQUEST* r CVT**(REQUEST*, 8* 1-4*) 

IF LEFT( CVT**( REQUEST*, -1*), 1*) = "T" THEN 13000 

I Check fancy type functions 


I Re-open keyboard for input 
I Zero memo nums (Type, Delete, More) 


I Dump leading spaces and CR/LF. 


MEM.NUM* = VAL(RIGHT(REQUEST*,INSTR(0*,REQUEST*," "))) 

I Get memo number if given. 

A.NUM*, P.NUM*, DELNUM* = MEM.NUM* 

REQUEST* = LEFT(CVT**(REQUEST*,-1*),1*) 

GOTO 1200 IF REQUEST* = "" I No function - try again 

CHOICE* = INSTR(0*, "ADELMPTHS", REQUEST*) ♦ 1* 

ON CHOICE* GOTO 
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12000, 2000, 3000, 21000, 5000, 9000, 6000, 7000, 11000, 8000 


Add a memo to the file 


IF A.NUM* <> 0* THEN 

PRINT "I choose the memo number." 
\ GOTO 1200 

SUB.ADD* = 0* 

\ PRINT 

\ PRINT "Subject: "; 

\ INPUT LINE #1, SUBJECT* 


I Normal entry. 


I Get the memo subject. 


PRINT "Now type your memo. End with Ctrl-Z." 

MEMO* = SUBJECT* CHR*(3*) I Choose a good delimiter. 

PRINT 

WHILE 1* 


GET #1* 

FIELD #1*, RECOUNT AS MEMO.LINE* 
MEMO* = MEMO* > MEMO.LINE* 


RETURN IF SUB.ADD* 

GET #4*, RECORD 1* 

M.NUM* = MEMO.SEQ* ♦ "" 

LSET MEMO.SEQ* = 

CVT**( CVT**( MEM0.SEQ*)+1*) 
PUT #4*, RECORD 1* 


I Get the memo data 
I End on Ctrl-Z error 

I Get out if subroutine. 

I Get the main pointers. 

I Get memo sequence number. 

I Increment the seq. num. 

I And replace the pointers. 


CALL* = FNUNLINK*( FREE*, 0*) 

GOTO 2090 IF CALL* = 0* 

GET #4*, RECORD CALL* 

LSET MEMO. NUM* = M.NUM* 

LSET MEMO.DATE* 

LSET MEM0.DAT* = LEFT(MEMO*,500*) 
MEMO* = RIGHT(MEM0*, 501*) 

PUT #4, RECORD CALL* 

CALL* = FNLINK*( USED*, CALL*, 0*) 
IF LEN(MEM0*) > 0* THEN 2050 


I Get a free record. 

I Complain if none free. 

I Get the free record. 

I Store the message number. 
CVT**(TODAYS.DATE*)I Store the date. 

I Store some memo data. 

I Trim down the memo. 

I Write the record to the file. 

I Link the record in the used queue. 
I If more memo, repeat. 


PRINT 

\ PRINT "Memo ' 
\ GOTO 1200 


CVT**( M.NUM*); 


PRINT 

\ PRINT "? No FREE record available" 
\ PRINT 
\ GOTO 21000 

I 

I Delete a memo 


I Should always be a free 
I record available. 

I Bad error if not. 


PRINT 

CALL2* = 0* 

PRINT "Delete memo number: "; 

UNLESS DELNUM* & 

INPUT #1*, DELNUM* UNLESS DELNUM* 

GOTO 3050 IF DELNUM* < 1* 

GET #4*, RECORD 1* 

GOTO 3050 IF DELNUM* >= CVT**( MEMO.SEQ*) 

I Exit if number too high. 


I Get memo num if not given. 
I Exit if bad number. 

I Check against high number. 


CALL* = FNFIRST.REC*( USED*) 

CALL* = FNNEXT.REC* 

UNTIL MEMO.NUM* = CVT**( DELNUM*) 
OR CALL* = 0* 


I Start at the beginning. 


GOTO 3050 IF CALL* = 0* 

CALL2* = FNUNLINK*( USED*, CALL*) 
GOTO 3020 UNLESS CALL2* = 0* 

OR CALL2* <> CALL* 


I Find the record or end. 

I Get out if end. 

I Unlink the record. 

I Repeat for more records. 

I ...unless there was an error. 


IF CALL2* r 0* THEN 

PRINT "? Couldn't unlink record ";CALL* 

ELSE 

PRINT "? Deleted record ";CALL2*;" not ";CALL* 

PRINT 

\ GOTO 1200 

IF CALL2* <> 0* THEN 

PRINT "Memo "; DELNUM*; " deleted." 

ELSE 

PRINT "Can't find memo ";DELNUM* 

! Print the results. 

GOTO 1200 


List any pending memos. 


IF A.NUM* <> 0* THEN 

PRINT "Show some guts - list them all." 
GOTO 1200 


CALL* = FNFIRST.REC*( USED*) 

GOTO 5050 IF CALL* = 0* 

PRINT 

PRINT "Memo". " Date", "Subject" 
PRINT 


I Goto first used record. 
I If none...no memos. 


I Copy the memo number. 

I Print the information. 


CUR.MEMO* = MEMO.NUM* ♦ "" 

PRINT CVT**(MEMO.NUM*), 

DATE*(CVT**(MEMO.DATE*)), 

LEFT(MEM0.DAT*,INSTR(0,MEMO.DAT*,CHR*(3))-1*); 
CALL* = FNNEXT.REC* 

UNTIL MEMO.NUM* <> CUR.MEMO* 

OR CALL* = 0* 

I Find next memo. 

GOTO 5020 IF CALL* <> 0* t And print it. 


PRINT 
\ PRINT 
\ GOTO 1200 

PRINT 

\ PRINT "No memos on file." 
\ GOTO 5030 


I All done. 


! Nothing to print. 

I SEARCH func comes here, too. 
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6000 


Change the pronpt to something else. 


6005 

6010 

6020 

6030 

7000 

7010 

7012 

7015 

7020 

7050 

7100 

8000 

8005 

8010 

8015 

8020 

8025 

8030 


8050 RETURN IF SUB.SEARCH* 

\ PRINT 
\ GOTO 1200 


IF A.NUM* <> 0* THEN 

PRINT "Change the prompt in a memo? Ridiculous I" 
\ GOTO 1200 


9000 


Append to a memo 


PRINT 

\ PRINT "Enter your new prompt, ending with Ctrl-Z." 

\ PRINT 

\ NEW.PROMPT! = "" 

\ WHILE 1* 

\ GET #1* 

\ FIELD #1*. RECOUNT AS PART.OF.THE.NEW.PROMPT! 

\ NEW.PROMPT! r NEW.PROMPT! 

♦ PART.OF.THE.NEW.PROMPT! 

\ GOTO 6020 IF LEN(NEW.PROMPT!) > 490* 

\ NEXT 

GET #4*, RECORD 1* 

\ NEW.PROMPT! = LEFT(NEW.PR0MPT!,490*) 

\ FOR I* s 1* TO LEN(NEW.PROMPT!) 

\ IF ASCIK MID( NEW. PROMPT!, I*, 1*)) = 27* 

THEN 

NEW.PROMPT! a LEFT( NEW.PROMPT!, I*-1*) 

♦ CHR!(155*) 

♦ RIGHT( NEW.PROMPT!, I*^1*) 

I Set parity on escapes. 

NEXT I* 

\ LSBT BUF! = NEW.PROMPT! ♦ STRING!(407*-LEN(NEW.PROMPT!),0*) 

\ LSET PROMPT.LEN! = CVT*!(LEN(NEW.PROMPT!)) 

\ POT #4*. RECORD 1* 

\ PROMPT! = NEW.PROMPT! 

\ GOTO 1200 


I Print a memo 

I 

PRINT 

\ SUB.TYPE* = 0* 

PRINT "Which memo? "; UNLESS P.NUM* 

\ INPUT #1*, P.NUM* UNLESS P.NUM* 

\ IF SUB.TYPE* THEN 
IF K* THEN 

OPEN PRINT.FILE! FOR OUTPUT AS FILE #1* 

ELSE 

OPEN TYPE.FILE! FOR OUTPUT AS FILE #1* 

I Open the file If specified. 

GOTO 7050 IF P.NUM* < 1* I Ask for number - quit if bad. 

\ GET 14*, RECORD 1* I Check against high number. 

\ GOTO 7050 IF P.NUM* >= CVT!*( MEMO.SEQ!) 

\ CALL* = FNFIRST.REC*( USED*) & 

\ CALL* = FNNEXT.REC* 

UNTIL MEMO.NUM! a CVT*!( P.NUM*) 

OR CALL* s 0* 

I Find matching memo or end. 

\ GOTO 7050 IF CALL* = 0* I Complain if none. 

GOSUB 7100 IF INSTR(0*, MEM0.DAT!, CHR!(3)) 

I Print header if first rec. 

\ PRINT #1*, CVT!!(RIGHT(MEMO.DAT!,INSTR(0,MEMO.DAT!,CHR!(3))^1S).128*); 
\ CALL* = FNNEXT.REC* 

\ GOTO 7020 IF MEMO.NUM! = CVT*!( P.NUM*) 

UNLESS CALL* = 0* 

\ RETURN IF SUB.TYPE* 

\ PRINT 
\ GOTO 1200 

PRINT #1* 

\ PRINT #1*. "Memo "; P.NUM*; " not found." 

\ PRINT #1* 

\ RETURN IF SUB.TYPE* 

\ GOTO 1200 

PRINT #1* 

\ PRINT #1* 

\ PRINT #1*, "Memo "; P.NUM*, "Date "; DATE!(CVT!*(MEMO.DATE!)) 

\ PRINT #1*, "Subject: "; 

\ PRINT #1*, LEFT( MEMO.DAT!, INSTR( 0*. MEMO.DAT!, CHR!(3*)) -1*) 

\ PRINT #1* 

\ RETURN 


I SEARCH Function 


IF A.NUM* <> 0* THEN 

PRINT "Why search If you know the memo number?" 

\ GOTO 1200 

PRINT 

\ SUB.SEARCH* a 0* 

\ HEAD* a 0* 

\ PRINT "Search for: "; 

\ INPUT LINE #1*, SEARCH! 

\ CALL* a FNFIRST.REC*( USED*) 

\ GOTO 5050 IF CALL* a 0* I Exit If no memos. 

SEARCH! a CVT!!( SEARCH!, 32* 4*) 

I* a INSTR(0*, MEMO.DAT!, CHR!(3*)) 

\ GOTO 8030 IF I* a 0* 

\ TEMP.MEM! a CVT!!( LEFT( MEMO.DAT!, I*), 32* ^4*) 

\ FOUND* a INSTR(0*, TEMP.MEM!, SEARCH!) 

\ GOTO 8030 UNLESS FOUND* 

\ RETURN IF SUB.SEARCH* 

\ IF HEAD* a 0* THEN 

PRINT #1*, "Memo", " Date", "Subject" 

\ HEAD* a 1* 

PRINT #1*, CVT!*(MEMO.NUM!), 

DATE!(CVT!*(MEMO.DATE!)), 

LEFT(MEMO.DAT!, INSTR(0*, MEMO.DAT!, CHR!(3))-1*); 

CALL* a FNNEXT.REC* 

\ GOTO 8020 IF CALL* > 0* 


PRINT 

PRINT "Add to which memo? "; UNLESS A.NUM* 

INPUT #1, A.NUM* UNLESS A.NUM* I Get the memo number. 

GOTO 9070 IF A.NUM* < 1* I See If too small. 

GET #4*, RECORD 1* 

GOTO 9070 IF A.NUM* >r CVT!*(MEMO.SEQ!) I See If too large. 

CALL* a FNFIRST.REC*( USED*) 

CALL* a FNNEXT.REC* 

UNTIL MEMO.NUM! a CVT*!( A.NUM*) 

OR CALL* a 0* 

I Find the first record of 
I — the memo to append to 
I ...or end of the list. 

GOTO 9070 IF CALL* a 0* I Get out if not found. 

WHILE MEMO.NUM! = CVT*!( A.NUM*) I While reading the same memo. 
AND CALL* <> 0* 

OLDCALL* a CALL* 

CALL* a FNNEXT.REC* 

NEXT 

MEMO! = CRLF! ♦ ' 


I Get the next record. 

I Now have last record of memo. 
Appended "•.•DATE!(0*)-f" •••••"♦CRLF! 

I Set up append notice. 

I Flag add as a subroutine. 


SUB.ADD* a 1* 

PRINT 

PRINT "Type your addition. End with Ctrl-Z." 

GOSUB 2035 I Get the addition 


CALL* a FNUNLINK*( FREE*, 0*) 
GOTO 9050 IF CALL* a 0* 

GET #4*. RECORD CALL* 

LSET MEMO.NUM! a CVT*!( A. NUM*) 


I Get a free record. 

I Complain if none free. 

I Get the free record. 

I Store the message number. 


LSET MEMO.DATE! = CVT*!(TODAYS.DATE*)I Store the date. 

LSET MEMO.DAT! a LEFT(MEMO!,500*) I Store some memo data. 

MEMO! a RIGHT(MEMO!, 501*) ! Trim down the memo. 

PUT #4, RECORD CALL* I Write the record to the file. 

CALL* a FNLINK*( USED*, CALL*, (M.DCALL*) I Link the record in the used queue. 
IF LEN(MEMO!) > 0* THEN I If more memo, repeat. 

OLDCALL* a CALL* 

GOTO 9030 


PRINT 

PRINT "Memo "; A.NUM*; 
SUB. ADD* a 0* 

GOTO 1200 


PRINT 

\ SUB.ADD* a 0* 

\ PRINT "? No FREE record available" 
\ PRINT 
\ GOTO 1200 


I Should always be a free 
I record available. 

I Bad error if not. 


PRINT 

PRINT "Memo 
PRINT 
GOTO 1200 


A.NUM*; " not found." 


HELP Function 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
GOTO 1 


" The MEMO program is designed as a computerized ’filing-box'." 
"It s purpose Is to allow people who spend a good deal of time" 
"using the computer system to use the computer to keep track of" 
"ideas or messages." 

" The program creates a file called MEMO.DAT In your" 

"account. Deleting this file la the quickest way to remove" 

"all your current memos." 

" The TYPE command has several options available. They are:" 


TYPE 
TYPE 10 
TYPE • 

TYPE STRING 


Type a memo. Program asks which one. 
Type memo number 10." 

Type all current memos." 

Type all memos with the" 
specified string In the subject." 


• You may have your memos typed to a file by Including” 
'a filename In the TYPE command as follows:” 


TYPE • > FILENAME 


Puts all memos into the" 
file specified by FILENAME. 


"Type the RETURN key to continue."; 
LINE #1,A! 


A list of commands follows:" 


I List the legal functions. 

PRINT 

\ PRINT "I humbly apologize, but I do not recognize this command." 
\ PRINT "My limited repertoire is as follows:" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 1 


"Add Add a memo to your memo file.” 

"Delete Remove a previously added memo." 

"List List memos on file." 

"Type Print the contents of a memo." 

"Search List memos with a specific subject." 

"More Append more information to an existing memo." 

"Prompt Change the current prompt to something else." 

"Help Gives more details about this program." 

"Exit Leaves the program." 

"All commands may be abbreviated to their first letter. The Type, 
"Delete and More commands may be followed by a memo number." 

200 
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13010 


13020 


13025 


13030 

130W 


The magic routine to handle output to a Tile and 
co-ordinate a type by string search function. 


REQUEST# = CVTt$( REQUEST#, 128|4.l4l) 

F# = INSTR( 01, REQUEST#, ">") I Look for file indicator. 

IF FI THEN 

PRINT.FILE# = RIGHT( REQUEST#, Fl>11) 

REQUEST# = LEFT( REQUEST#, Fl-11) 

I Trim file out of command. 


REQUEST# = CVT##( REQUEST#, 1281) 

MEMO.SPEC# = "" 

Ml = INSTR( 01, REQUEST#, " ") 

IF Ml THEN 

MEMO.SPEC# = RIGHT( REQUEST#, Ml^ll) 


13050 


13060 


I Look for memo number/search. 


P.NUMl = VAL( MEMO.SPEC#) 

GOTO 7000 UNLESS FI 

SUB.TYPEl = 11 
GOSUB 7012 
GOTO 13060 

IF MEMO.SPEC# = THEN 13100 


I Get memo number (string = err). 
I If memo number and no file, 

I Just print the memo. 

I Print single memo to file. 


I Print all the memos. 


SUB.SEARCH! = 11 
\ CALLl = FNFIRST.RECK USEDl) 

\ CALLl = 11 
\ FOUNDl r 01 
\ SEARCH# = MEMO.SPEC# 

\ IF FI THEN 

OPEN PRINT.FILE# FOR OUTPUT AS FILE #11 

ELSE 

OPEN TYPE.FILE# AS FILE #11 


I Start at the first record. 


! Get the search string. 


GOSUB 8015 

IF FOUNDl > 01 AND CALLl > 01 THEN 
P.NUMl = CVT#1( MEMO.NUM#) 
SUB.TYPEl = 11 
GOSUB 7020 
GOTO 13050 

PRINT #11 
PRINT #11 
CLOSE #11 

OPEN TYPE.FILE# AS FILE #11 
SUB.SEARCH!, SUB.TYPEl : 01 
P.NUMl, FOUNDl = 01 
GOTO 1200 


Print all the memos. 


I Do file or keyboard. 
I Look for the record. 


I If found, go print it. 

I Set the subroutine flag. 


I And look for another one. 


CALLl r FNFIRST.RECK USED!) 

IP CALLl = 01 THEN 

PRINT "No memos to print." 
GOTO 13060 


IF FI THEN 

OPEN PRINT.FILE# FOR OUTPUT AS FILE #11 

ELSE 

OPEN TYPE.FILE# AS FILE #11 


I Get the first memo. 

I Unless there wasn't one. 


CUR.MEMO# = MEMO.NUM# ♦ "" 
P.NUMl = CVT#1( CUR.MEMO#) 
SUB.TYPEl = 11 
GOSUB 7020 
GOTO 13120 IF CALLl 
GOTO 13060 


I Get current memo number. 


I Print a memo. 

I Do another If more. 


Check out all the disks for the memo file 


15010 CHANGE SYS(CHR#(61) ♦ CHR#(-3l)) TO PQBl 

\ DEVCNTl = FQB1(51) OR SWAPK FQBK 61)) 


PUT #iJl, RECORD 11 
FIRST.RUN! = H 
GOTO 1110 


I Zero all pointers and prompt length, 
i No need to put the prompt 
I string in yet. Program init 
I can handle it. & 


OPEN MEMO. FILE# FOR OUTPUT AS FILE #H1 


\ GOTO 20010 


I Re-init a bad memo file. 


CLOSE 1,k 
GOTO 32767 


Remove a record from the specified linked list. 

TYPE! Free or Used list indicator. 

RECl Record number to be removed. 

(valid for USED list only) 

This routine is the real brains of the linked list 
structure of this program. No record should be used 
without being UNLINKED from somewhere using this 
routine. It performs the only validity checks 
you are likely to find in this program. 

IF TYPE = FREE 
THEN 

REMOVE THE FIRST RECORD FROM THE FREE QUEUE 
IF THERE HAS A RECORD TO REMOVE 

THEN UPDATE THE FREE QUEUE LINKS 

ELSE 

CREATE A NEW RECORD OUT OF THIN AIR 

IF TYPE = USED 
THEN 

REMOVE A RECORD FROM THE USED QUEUE 
PLACE IT ON THE FREE QUEUE 


DEF» FNUNLINKK TYPE!, RECl ) 

GOTO 25050 IF TYPE! = USED! 

FR.RECl = FNFIRST.RECK FREE! ) 

GOTO 25030 IF FR.RECl x 01 
NXT.REC# X F.LINK# ♦ "" 

GET #41, RECORD 11 

LSET PTR#(FREEKSTART1) x NXT.REC# 

LSET PTR#(FREE1^ND1) x NXT.REC# 

IF CVT#KNXT.REC#) x 01 
PUT #41, RECORD 11 
IF CVT#KNXT.REC#) > 01 
THEN 

GET #41, RECORD CVT#KNXT.REC#) 
LSET R.LINK# x NULL.LINK# 

PUT #41, RECORD CVT#KNXT.REC#) 


I Check for used record. 

I Get the first free record. 

I If none, do something else. 

I Save link to next free rec. 

I Go to the main link pointers. 
I Update the free queue start. 

I Update the end pointer 
I ...If we've emptied the list. 
I And save It. 

I If there was a next record... 
I ... grab It. 

I Null out the reverse pointer 
I ...and replace the record. 


25020 GOTO 25090 


I And exit gracefully. 


♦ 11 ) 


GET #41, RECORD 11 
THIN.AIR# X MAX.MEMO# "" 

LSET MAX.MEMO# x 

CVT1#( CVT#K MAX.MEMO#) 

PUT #41, RECORD 11 I 

LSET F.LINK# x CVT1#( 01) I 

LSET R.LINK# x CVT1#( 01) ! 

LSET R.TYPE# x CHR#(FREE1) I 

LSET MEMO.NUM# x CVT1#( 01) I 

LSET MEMO.DATE# x CVT1#(TODAYS.DATE!)I 
LSET MEMO.DAT# x STRING#(500l, 01) I 
PUT #41, RECORD CVT#K THIN.AIR#) I 

FR.RECl X CVT#K THIN.AIR#) I 

GOTO 25090 ! 


Go for the big data. 

Get the next to create. 

And move the max ptr. up. 

Save the new big data. 

Null the forward... 

...and reverse links. 
Initialize as free record. 
Might as well do memo num. 

Put In the date for laughs. 
And empty out the data field. 
Create record from thin air. 
Keep track of It. 

Exit...stage left. 


CHANGE SYS(CHR#(61) ♦ CHR#(-12l)} TO FQBl 
DEVNAMl X FQBK 51) OR SWAPK FQBK 61)) 

DEVOKBl X FQBK 91) OR SWAPK FQBK 101)) 

I Get some Info from monitor tables. 


15030 


FOR II X 01 TO DEVOKBl-21 STEP 21 

DEV# X CVT1#(SWAPKPEEK(DEVNAMlfII)}) 

FOR J1 X 01 TO PEEK(DEVCNTl^Il) 

DISKS! = DISKS! ♦ 11 

DISKS#(DISKS!) = "_" ♦ DEV# ♦ NUM1#(J1) ♦ 

NEXT J1 
NEXT II 

I Loop through all disk names 
I Build each disk name In sequence 
I Loop for all units of this disk 
I Increment disk unit counter 
I Build and store complete disk name 
I Until we have all of them 


CALL# X SYS(CHR#(61) 


CHR#(-21)) 

I Done with privileges - drop them. 


FOR II X 11 TO DISKS! 

MEMO.FILE# X DISKS#(I1) ♦ "MEM0.DAT" I Build a filename. 

OPEN MEMO.FILE# FOR INPUT AS FILE #41 I Try to open file. 

IF (STATUS AND 10241) x 01 THEN 1110 
ELSE 

PRINT "Don't have write access to ";MEMC.FILE# 

NEXT II 

MEMO.FILE# X SY.MEMO.FILE# I Didn't exist - default to system. 

GOTO 20050 I And go create it. 


Initialize a new memo file 


FIFLD #41, 5121 AS INIT# 

L^ET init# X STRING#(101,01) 

♦ CVT1#{21) ♦ CVTlKll) 


FR.RECl X FNFIRST.RECK USED!) 

\ FR.RECl X FNNEXT.RECl 

UNTIL (FR.RECl x RECl) 
OR (FR.RECl = 01) 

\ GOTO 25090 UNLESS FR.RECl 
\ NXT. PTR# X F.LINK# ♦. "" 

\ PRV.PTR# X R.LINK# ♦ "" 

\ IF CVT#K NXT. PTR#) <> 01 
THEN 

JUNKl X FNNEXT.RECl 
\ LSET R.LINK# x PRV.PTR# 

\ PUT #41, RECORD JUNKl 

IF CVT#K PRV.PTR#) <> 01 
THEN 

jyNKl X FNPREV.RECl 
\ LSET F.LINK# x NXT.PTR# 

\ PUT #41, RECORD JUNKl 


I Get the first used record. 

I Find the record to remove. 

I Unless it's not there. 

I Get out If not there. 

! Save forward link. 

I Save reverse link. 

I If there was a next record 

I Get It 

I Update reverse link 
I And replace the record. 

I If there was a previous record. 

I Get it 

I Update forward link 
I And replace the record. 


IF CVT#K NXT. PTR#) x 01 
THEN 

GET #41, RECORD 11 
LSET PTR#( USEDl-^ NDl) x PRV.PTR# 
PUT #41, RECORD 11 


I If no next record. 

I Get the main pointers. 
$ 

I Update used end ptr. 

I If no previous record. 


IF CVTIK PRV.PTR#) x 01 
THEN 

GET #41, RECORD 11 ! Get main pointers. 

LSET PTR#( USEDl^ STARTl) x NXT.PTR# 

PUT #41, RECORD 11 ! Update used start ptr. 

IF FR.RECl <> 01 THEN I If a record was removed... 

CALL! X FNLINKK FREE!, FR.RECl, 01)1 ...place it on the free queue. 


FNUNLINKl X FR.RECl 
FNEND 


! Return the record number. 
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25100 

25110 


25120 

25130 

251 HO 

25150 


25160 

25190 

25200 


25210 

25220 

25300 


25310 

25320 

25H00 


FNLINKI 

Add a record to the linked list specified. 


TYPES 

RECS 

LIN RAFTERS 


Free or Used list Indicator 
Record number to add to list 
Record number to link record after 
(in USED list only - zero means end) 


DEF» FNLINRSCTYPES, RECS, LINKAFTERS) 


\ GOTO 25150 IF (TYPES = USEDS) AND 
\ LASTS = FNLAST.RECS(TYPES) 

\ IF LASTS > OS 
THEN 

GET #HS, RECORD LASTS 
\ LSET F.LINKI x CVTSI(RECS) 

\ PUT #HS, RECORD LASTS 

\ GET #H, RECORD IS 

\ LSET PTRK TYPES ♦ NDS) 

X CVTSS(RECS) 

\ PUT #HS, RECORD IS 

\ GOTO 25130 

IF LASTS = OS 
THEN 

GET #HS, RECORD IS 
\ LSET PTRKTYPES-^STARTS) 

X CVTSK RECS) 

\ LSET PTRKTYPES+NDS) 

X CVTSK RECS) 

\ PUT #4S, RECORD IS 


(LINKAFTERS > OS) 

I Move to the last record. 

I If there is a last record 

I Read the last record. 

I Update the forward link. 

I And replace the record. 


I Update last ptr x new record. 


I If there was no last record 
I Get the main pointers. 

I Init the start and 
I end pointers. 


the backward link used here. 
FNLAST.RECS Returns last record number (or zero 
if none). If there is a 
last record, it is read. 


25H10 


DEF« FNLAST.RECS( TYPES ) 




\ 

GET «HS, RECORD IS 

1 

Get the main links. 


\ 

LASTS X CVTSS(PTRS(TYPES^NDS)) 

I 

Get END pointer for TYPE. 


\ 

IF LASTS 

I 

If there is a last record 



THEN GET #HS, RECORD LASTS 

1 

..then read it. 

25H20 


FNLAST.RECS x LASTS 

1 

Return record number. 


\ 

FNEND 



25500 

1 





1 

FNFIRST.RECS 




1 

1 

Return the first record number 

in 

a linked list. 


1 

1 

TYPES List type free 

or 

used. 


1 

FNFIRST.RECS Returns first 

record number (or zero 


1 

if none). 

If there is a 


1 

1 

first 

record, it is read. 

25510 


DEF* FNFIRST.RECS( TYPES ) 




\ 

GET #HS, RECORD IS 

1 

Get the main links. 


\ 

FIRSTS X CVT$S(PTR$(TYPES>STARTS)) 

I 

Get START pointer for TYPE, 


\ 

IF FIRSTS 

1 

If there is a last record 



THEN GET #HS, RECORD FIRSTS 

1 

..then read it. 

25520 


FNFIRST.RECS = FIRSTS 

1 

Return record number. 


\ 

FNEND 




GET #HS, RECORD RECS 
\ LSET F.LINKS x NULL.LINKS 
\ LSET R.LINKS x CVTSS(LASTS) 
\ LSET R.TYPES = CHRS(TYPES) 

\ PUT #HS, RECORD RECS 

FNLINKS : RECS 
\ FNEND 


I Get the record to link. 

I Null the forward link. 

I Old LAST is reverse link. 

I Add record type. 

I Put the record in the file. 

I Return Installed record #. 


32000 I 

I Handle those errors 

I 


32010 IF ERL x 15050S 

THEN RESUME 15060 

I Keep checking disks to find the memo file. 


\ 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


\ 

\ 

\ 

\ 

\ 


CALLS = FNFIRST.RECS( USEDS) I 

CALLS = FNNEXT.RECS 

UNTIL CALLS » LINKAFTERS 
OR CALLS c OS I 

GOTO 25190 IF CALLS x OS I 

NXT.PTRS = F.LINKS ♦ "" I 

PRV.PTRS s R.LINKS ♦ "" 

LSET F.LINKS = CVTSS( RECS) I 

PUT #HS, RECORD CALLS > 

GOTO 25160 IF NXT.PTRS = NULL.LINKS 
GET #HS, RECORD CVTSS( NXT.PTRS) I 

PRV.PTRS = R.LINKS ♦ "" 

LSET R.LINKS = CVTSS( RECS) I 

PUT #HS, RECORD CVTSS( NXT.PTRS) I 


Get the first record in list. 


Find the record to add to. 
Exit if not there. 

Save pointer to next record. 

Update forward pointer. 
Restore the record. 

Get the next record. 

Install new pointer. 

Restore the record. 


GET #HS, RECORD RECS > G«t the record to link in. 

LSET F.LINKS « NXT.PTRS I Set up the links. 

LSET R.LINKS = PRV.PTRS 
LSET R.TYPES » CHRS( TYPES) 

PUT #HS, RECORD RECS 
GOTO 251 HO 


RECS s OS 
\ GOTO 251 HO 


FNNEXT.RECS 

Return the next record number in a linked list. 

Works with the free or used list, depending on 

which list was used last. 

F.LINKS Must remain unaltered after last 

record read. This contains 
the forward link used here. 

FNNEXT.RECS Returns next record number (or zero 
if no next record). If there 
is a next record, it is read. 


DEF* FNNEXT.RECS 
\ NXT.RECS = CVTSS(F.LINKS) 

\ IF NXT.RECS 

THEN GET «HS, RECORD NXT.RECS 


I Read forward link for next. 
I If there is a next rec. 

I ...then read it. 


32030 IF ERR x IIS AND ERL x 6010S THEN 

FIELD #1S, RECOUNT -IS AS PART.OF.THE.NEW.PROMPTS 
\ NEW.PROMPTS X NEW.PROMPTS 

♦ PART.OF.THE.NEW.PROMPTS 

\ RESUME 6020 

I Handle the control-Z at the end of the prompt. 


320H0 IF ERR x IIS AND ERL x 2035S THEN 

FIELD #1S, RECOUNT -IS AS MEMO.LINES 
\ MEMOS s MEMOS MEMO.LINES 

\ RESUie 20H0 

I Handle the control-Z at the end of the memo. 

32050 IF ERR x IlS AND ERL x 2020S THEN 
RESUrC 1200 

I Control-Z no good to end memo subject. 

32070 IF ERR x 28S 

OR (ERR xllS AND ERL x 1200S) THEN 
aOSE 1S,HS 

\ RESUME 32767 

I Exit on oontrol-C 
I or oontrol-Z at prompt. 

32080 IF (ERL x 301 OS) 

OR (ERL X 701 OS) 

OR (ERL X 8010S) THEN RESU»C 1200 

I Head back to the prompt if any problems. 


32090 IF ERL x 121 OS THEN 
RESUME 1220 

I Bad number given on input (Type, Delete) 


32100 IF ERL x 13025S THEN 
RESUME 13030 

I If memo number was a search string 


32110 IF (ERL X 130H0S) 

OR (ERL X 13115S) 

OR (ERL X 1321 OS) then 

PRINT 

\ PRINT PRINT.FILES; "? Looks like GARBAGE to mel" 

\ PRINT 

\ RESUME 1200 

I Complain about filename. 


FNNEXT.RECS x NXT.RECS 
V FNEND 


I Return the record # (or zero). 


32120 IF ERL x 9010S THEN 
RESUME 1200 

I Bail out if bad memo number in MORE. 


FNPREV.RECS 

Return the previous record number in a linked list. 

Works with the free or used list, depending on 

which list was used last. 

F.LINKS Must remain unaltered after last 

record read. This contains 
the backward link used here. 

FNPREV.RECS Returns previous record number (or zerb 
if none). If there is a 
previous record, it is read. 


DEF« FNPREV.RECS 

\ PREV.RECS X CVTSS(R.LINKS) • Get the backward link. 

\ IF PREV.RECS • IT there is one 

THEN GET #HS, RECORD PREV.RECS I ..read the record. 

FNPREV.RECS x PREV.RECS I Return record # (or zero). 

\ FNEND 


FNLAST.RECS 

Return the last record number in a linked list. 

TYPES List, type free or used. 

F.LINKS Must remain unaltered after last 

record read. This contains 


32600 IF ERL > 25000S 

AND ERL < 32000S THEN 
PRINT 

\ PRINT "MEMO file format error" 

\ RESUME 32710 

I Fix the error in the file. 

32610 IF ERL X 32710S 

THEN RESUME 21000 

I Quit if error in Inlt file answer. 

32620 IF ERL x 11010S THEN 
RESUME 1200 

I They got tired of the instructions. 

32700 PRINT 

\ PRINT "? Unexpected Error" 

\ PRINT RIGHT(SYS(CHRS(6)>CHRS(9)-*-CHRS(ERR)),3S); 

\ PRINT " in line ■; ERL 
\ RESUrC 21000 

I Can't expect everything... 

32710 PRINT 

\ PRINT "Re-inltlallze the file? "; 

\ INPUT LINE #1, AS 
\ AS = LEFT(CVTSS(AS,-1S),1S) 

\ IF AS = "Y" THEN GOTO 20050 

ELSE PRINT "? Bad MEMO file - can't continue" 
\ CLOSE 1,H 

32767 END 
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He^ledr 



LOCK-11 is a system security and management LOCK-11 offers the system manager powerfui 
package for RSTS. surveillance utilities that actually improve thruput. 

LOCK-11 gives you absoiute controi of access by LOCK-11 is very v\/eii documented, supported and 
keyboard or user-1.D. enhanced regulariy. 

LOCK-11 provides an optional MENU environ- LOCK-11 is avaiiabie right now. Circie the response 
ment that keeps non-priviieged users where they number beiow for a fuii set of documentation, or 
belong. call 215-364-2800. 
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HOW TO USE SHAREABLE DATA 

By Ken Isaacs, Digital Management Group, Ltd., Willowdale, Ontario. Canada 


OVERVIEW 

With the advent of RSTS/E V7.0, there was con¬ 
siderable support given to resident libraries. They are usable 
for code or data sharing between many concurrently active 
jobs. We also have been provided with all the tools and raw 
data from Digital with which to manipulate these new 
features. What has not been clear, however, is "HOW DOES 
ONE SHARE DATA EASILY BETWEEN PROGRAMS WRITTEN 
IN A HIGH LEVEL LANGUAGE?" Relax, sit back and read. I 
will present the simple steps you too can take. I will briefly 
discuss: 

• why use resident common areas. 

• cookbook instructions on how to make one. 

• elephant traps to avoid. 

INTENDED AUDIENCE 

This document is intended for those of you who know 
and love RSTS/E and plan to do great things with your 
system. The following discussion does get rather detailed. I 
have tried to make it as clear as possible so that it is not 
necessary to know lots about machine language, task 
builders and the like. My objective is that you will learn how 
to share data between concurrently active programs using 
resident common areas. 

PREREQUISITE READING 

Although there is no mandatory prerequisite reading, I 
suggest that you become familiar with: 

• one high-level language ( BASIC -t- 2 or DIBOL ) and 
what it generates in terms of object code (PSECTs, Global 
symbols, etc.), 

• a little (just a little, mind you) MACRO. 

• the Task Builder utility. 

The following reference manuals will be handy: 

• Task Builder Reference Manual. 

• MACRO-11 Language Manual. 

• RSTS/E System Manager's Guide — for UTILTY. 

• RSTS/E Programmer's Utility Manual — for MAKSIL. 

DEFINITION OF COMMON AREAS 

A common area is a portion of a program's address 
space that is used to store/retrieve information that is used 
between modules. Many modules in one program can access 
this area of common information. The term, resident com¬ 
mon area applies to a special case of common area. A resi¬ 
dent common area is one that is separately loaded by the 
system, and is connected to by one or more programs. Thus 
it is possible for several jobs to easily share their data. 


1 Job #1 1 
I Code & ! 
1 unshared I 
! Data I 




Resident 

Common 

Area 


I Shared ! 
I Data I 




1 Job #2 I 
I Code & I 
I unshared I 
I Data I 




Physically 
Separate 
and Shared 


WHY USE RESIDENT COMMON AREAS? 

The addressing limitations of PDP-lls in commercial- 
applications are well known by this time. Many applications 
use: 

• complex program overlay structures, 

• many detached/chaining jobs, 

• virtual arrays, 

• scratch pad files. 

• large amounts of interjob message sending. 

• frequently used smallish size (1 -40 blocks) tables that 
are expensive to put in files. 

• any of the above, 

• all of the above. 

I cannot realistically do away with the requirement for 
a large amount of program segmentation. What I can in¬ 
form you of is an easy to use mechanism for sharing data 
between many small jobs. Your application design will have 
to ensure that all individual programs do not become too 
large and unwieldy. 


SAMPLE USES OF RESIDENT COMMON AREAS 

It is hard to visualize the use of a resident common area 
unless it is put into an "application" example. The following 
are two examples of existing applications that could use res¬ 
ident common areas: 

• high speed table lookup. 

• processing of the same data by several jobs. 


HIGH SPEED TABLE LOOKUP 

One application involves high volumes of data entry 
with minimal verification. The longest time spent in verifica¬ 
tion is looking up the product code to see if it exists. Addi¬ 
tionally. the verification table is updated periodically and the 
changes must be in effect at once. As a result, this table is 
stored in a file. There are only a couple of hundred product 
codes. This would fit neatly into an array in a resident com¬ 
mon area and allow any product additions or deletions to 
take effect immediately. 
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Resident Common Area for Table Lookups 

- +- - -+ <» _ +-+ 

I Slot #2 ! I User Pgm 1 I 

+ - + -- - +---—--<_ - +-+ 

I Job #1 I I Job #2 I 


I Product Table 


I Slot #n 


Product Table 
is part of each pro¬ 
gram’s virtual ad¬ 
dress space 

PROCESSING BY 
SEVERAL JOBS 
The other ap¬ 
plication involves 
several on-line pro¬ 
grams and several 
detached programs 
processing the 
same area of infor¬ 
mation. The de¬ 
tached programs 
are responsible for 
handling one func¬ 
tion common to ac¬ 
cessing the data. 
For example, the 
first detached pro¬ 
gram copies from a 
master file to a 
common scratch 
pad where the on¬ 
line programs ma- 
nipuiate the data. 
The second de¬ 
tached program 
copies the data 
back to the master 
fiie. The third and 
fourth programs 
provide some appli¬ 
cation dependent 
functions common 
to each set of 
records. A large 
resident common 
area could be used 
to store the scratch 
pad and the 
■’overlay” feature 
that 1 discuss later 
could be used to 
address the perti¬ 
nent portion of the 
scratch pad. 



The smoothest path between RSTS/E and VAX/VMS 
just got smoother: there’s a major new release of 

ROSS/V 

ROSS/V has always provided: 

• the fastest way to bring up RSTS 'E applications on 
the VAX 

• the only way to do RSTS/E development on the VAX 

• an extensive subset of RSTS/E monitor calls and 
standard RSTS/E features. likeCCLs, DOS-formatted 
magtape, and RSTS/E-style file update mode 

Now, in Version 3, ROSS/V supports: 

• the "hidden" RSX run-time system (with 32 KW 
job size) 

• resident libraries 

• job spawning and detached jobs 

• spooling to VMS print and batch queues 

• mailboxsend receiveforcommunication with VAX-11 
BASIC and other native mode applications 


Each program 
only maps the part 
of resident com¬ 
mon area that it is 
currently using. 

OTHER POSSIBLE 
USES 

Another use of 
a large resident 
common area is 
that of a ’’file 
handler.” There are 
several sites that 
use file handlers so 
that it is not nec¬ 
essary to build 
the file access code 
into each program 
(i.e., RMS). As a 
result, they use a 
file handler and 
inter-job messages 
to access the data. 
A file handler could 
use a resident com¬ 
mon area in two 
ways: 


How ROSS/V works: 

ROSS/V is written in VAX-11 MACRO, and RSTS E monitor calls 
are performed in VAX native mode The rest of your PDP-11 code (in 
applications, run-time systems, TKB, etc ) is executed directly in the 
PDP-11 microcode that's present in every VAX ROSS V runs under 
VMS. not in place of it. Thus, some users may be working under the 
RSTS/E subsystem provided by ROSS V while others are concur¬ 
rently using any of the other VAX VMS capabilities 

Call or write for the new ROSS/V technical summary, 
which describes all of ROSS/V’s features. 


Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington. MA 02(73 
(6(7)861-0670 


OnLine Data Processing, Inc. 

N 637 Hamilton 
Spokane. WA 09202 
(509)484-3400 


PDP. RSTS, RSX, VAX. and VMS are trademarks 
of Digital Equipment Corporation 
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ROSS/V! 


the 


• store the file 
(or portions of it) in 
its own private res- 
ident common 
area. This amounts 
to a more sophisti¬ 
cated data caching 
technique. It also 
points out another 
interesting charac¬ 
teristic of resident 
common areas and 
that is they do not 
have to be shared; 
they can be used by 
one program ex¬ 
clusively. 

• passing the 
records back and 
forth between the 
file handler and 

rest of the application. 


Scratch Pad in Resident Common Area 


I Server Pgm 1 I I Control Area I 

+-+ _ _> +-+ 

I Slot #1 I 


COMMON AREA COOKBOOK 

1 will now discuss the steps necessary to build a resi¬ 
dent common area suited to your requirements. 

• The first thing I must do is address some language 
dependencies. 
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RPM CAN 
DAAMATICAUV 
INCRCASC 

TH€ P€RfORMANC€ 
OF VOUR svsrcM 


You can double or triple your system’s performance without adding costly hardware. RPM provides everything you 
need to optimize your system and keep it running at peak performance, 

RPM analyzes your system performance automatically, identifying problem areas. But, RPM doesn’t stop therei It 
identifies the cause of the problems and makes suggestions for correction in plain English. 


AUTOMATIC PERFORMANCE ANALYSIS 


Instead of dumping columns of cryptic numbers, RPM 
gives you a plain English report that describes how 
your system is performing. It tells you where you have 
problems, what caused the problems, and how to fix 
them. 

This report analyzes each of the resources that are 
common problem areas. Any resources that are not 
being used optimally are identified. The program or 
files that caused the problem are then identified and 
suggestions are made for correcting the problem, 

DETAILED PROGRAM ANALYSIS 

In addition to identifying problem programs, RPM can 
analyze the operation of individual programs, 
identifying problem areas. 

RPM's detailed program analysis breaks the operation 
of the program down into CPU usage, input/output 
and system calls. Usage and directory overhead counts 
are displayed by channel and by system call. 


- File Processor (FIP) Usage - 

•• The file processor (FIP) is being excessively used. It is in use by at 

least one job 67% of the time. In addition, an average of 2.7 other users 
are waiting to use FIP. Although the file processor is in use 67% of the 
time, it is waiting for information from the disk 72% of the time it is in 
use. The disk information that FIP is waiting for breaks down as follows: 
91% Directory. 

Reading or writing to the directory structure. 

7% Disk Allocation Table (SAT) 

Reading or writing information about free blocks on the disk. 

2% Monitor Overlays. 

Loading monitor overlays into memory. 

0% Miscellaneous. 

Loading disk cache information and other miscellaneous data. 

The five programs that use the most FIP resources are: 

OE047A 275.2 

PAYREC 213.1 

...TKB 158.0 

BP2COM 110.3 

LOGIN 78.7 

FIP usage can be decreased by optimizing the clustersize of frequently used 
files (see section 4.4.1 of the RPM User's Guide), using contiguous files 
where possible, reordering the directories often and minimizing the opening 


RPM> EXAMINE JOB 5 EVERY 5 MINUTES 


Job: 5 Program: •ALL* CPU: 54% Sample Time: 297 Seconds 


Chan 


File 

Count Ovrhd Chan 


File 


Count 

Ovrhd 

0 KB2 





3 


1 

• Closed ' 

¥ 


4 


3 DM1 

I1.31CSPCOM.OLB 


835 

2 

4 

DM1: 

(5.1)TEMP05 

TMP 

39 

42 

6 DM1 

(5,IIEXAMPL.STB 


9 

91 

7 

DM1: 

[5.IIEXAMPL. 

TSK 

733 


15 DM1 

[1,3]TKB 

TSK 


278 









EMT Count 

Ovrhd 

EMT 

Count 

Ovrhd 

EMT 

Count 

Ovrhd 

EMT 

Count 

Ovrhd 


CALFIP 

149 


READ 

1441 

2 

.WRITE 

460 

133 

CORE 

7 



.TTECH 

1 


.TTRST 

1 


DATE 


1 


NAME 

2 



RTS 

1 


. LOGS 

12 


.CLEAR 

2 


CCL 

1 

5 


FSS 

42 


UUO 

71 


. RSX 


1 


CLSFQ 

62 

28 


OPNFQ 

58 

535 

CREFQ 

2 

226 

DLNFQ 


1 

23 

RSTFQ 

2 



LOKFQ 

22 

259 

CRTFQ 

1 

64 

CRBFQ 


1 

175 

UU.ATR 70 

250 


UU.NAM 

1 

3 
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EXTENDED PERFORMANCE STATISTICS 


RPM adds extended performance statistics to your 
RSTS/E monitor. This monitor extension captures 
information about overall system performance plus 
information on individual programs and files. Using this 
^ information, you can improve system performance by 
\ minimizing disk head movement, reducing file processor 
(PIP) waits, reducing swapping, and optimizing disk 
cache operation. 


DYNAMIC PLOTTING 

In addition to comprehensive reports, RPM can 
generate a wide variety of graphs. It can plot curves, 
draw bar charts, and plot histograms using any 
combination of system information. By plotting one 
variable against another, you can immediately see 
correlations between variables. This is espescially useful 
for determining critical resource usage points. 


RPIO HISTOGRAM DLO_SEEK_DIST 

0-1-2-3-4-5-6-7-8-9-0 


DLO:SEEK_DIST_1 
DLO:SEEK_DIST_4 
DLO:SEEK_DIST_I6 
DLO:SEEK_DIST_64 
DLO: SEEK_DIST_100 


47. 1 
22.9 
16.5 
10 . 8 
2.7 


RPIL> HISTOGRAM DLO_DISK_USAGE 


DLO: DISK_USAGE_0 • 
DLO: DISK_USAGE_10 • 
DLO:DISK_USAGC_20 • 
DL0:DISK_USAGC_30 • 
DLO: DISK_USAGC_40 • 
DL0:DISK_USAGE_50 • 
DLO:DISK_USAGE_eO * 
DLO:DISK USAGE_70 • 
IX^:DISK_USAGE_80 • 
DL0:DISK_USAGE_90 • 


2 . 1 
2.0 
3. 1 
3. 6 
17. 6 
42. 2 
19. 8 
4.2 
3.9 


RPIO PLOT USER_CPU. M0NIT0R_CPU BY HOUR 


0-1-2-3-4-5-6-7_8_9-0 • # 


8.0 

9.0 

10.0 

11.0 

12.0 

13.0 

14.0 

IS.O 

16.0 



41.2 
44. 0 
54.5 
79. 1 

0.0 

74.3 
82. 1 

79.3 
70. 7 


7. 7 

8 . 1 

8.9 

12.6 

2.0 

12.3 
14. 2 
13. 1 

10.3 


Variable Description Min Max Avg 

X SAMPUE.HOUR Hour of Day 8.0 16.0 12.0 

• USER_CPU User CPU Tiae 0.0 82.1 58.4 

# M0NIT0R_CPU Monitor CPU tiae 2.0 14.2 9.9 


IDENTIFY PROGRAMS BY RESOURCE USAGE 

With RPM, you can identify the programs that will 
provide the most benefit from optimization. You can 
determine which programs are used most often and 
which programs use the most of critical resources. 

Once identified, these programs can be optimized. 
Overall system performance can be increased by making 
changes only where they will do the most good. 


RPIO LIST TOP 5 PROOIAMS BY PRC_CPU_TICKS 
PARRCC 542 

DAYEND 168 

PAYROL 142 

PA YANA 103 

CLCNUP 73 

RPIO LIST TOP 5 FILES BY FILE_DIR_OVRHD 
(3.101PR0FIL.JOU 33.1 

(3,10]PR0FIL.B2S 27.6 

(2.0]irrHEND.TSK 19.6 

IIO.HEOMREC. JOU 11.3 

[2.0]PAYAUD.DAT 7.8 

RPIO 


NO-RISK GUARANTEE 


If all this sounds too good to be true, here’s your chance to find out for yourself. Try RPM for 30 days. Use it to 
^ tune your system. If RPM isn’t everything we say it is and more, return it for a full refund. We’re not worried. We 
* know that once you see the difference RPM can make, you won’t want to be without it. 
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NORTHUICST DIGITAL SOFTUIRRC 


NORTHIUSST OlOITfll SOFTtURAC, INC. SOX S-TAS N4UIP0AT, WA 991S6 (S09) 447-8680 

















• Secondly, I’ll talk about simple resident common 
areas. 

• Lastly, I'll describe overlaid resident common areas. 

LANGUAGE DEPENDENT BACKGROUND 

Your choice of high-level language will affect the re¬ 
mainder of the discussion. This is a result of the differing 
ways that the languages generate common data references. 
The remainder of this discussion centers on the use of 
BASIC+ 2. although it may also be applied to F4P and 
DIBOL. 

BASIC + 2 shares data through MAPs or COMmons. The 
output from the compiler contains program sections 
(PSECTs). Each MAP/COMmon has one PSECT that has the 
same name as the MAP/COMmon name. For example: 

100 Map (ADATA) 

Firsts = 10% 

, Seconds = 10% 


produces a PSECT named ADATA. The task builder (TKB) 
builds tasks by combining all references to a PSECT within a 
segment. This characteristic is important when dealing with 
overiaid resident common areas and their definitions. 

DIBOL, on the other hand, produces global symbols for 
each of the COMMON variables. This makes using the 
overlaid resident common areas extremely easy to use in 
DIBOL, in that the task builder resolves all offsets. However, 
1 haven't run into very many DIBOL shops. If there are those 
of you who are interested, feel free to give me a call. 

FORMS OF SHARING 

1 have experimented with two different forms of resi¬ 
dent common areas: 

• non-overlaid resident common area (mapped using a 
single static window into the resident region), 

• overlaid resident common area (mapped using a 
dynamic window(s) into a LARGE resident region), 

and found several differing characteristics between the two 
forms. The appropriate use of either must be determined at 
design time. 

NON-OVERLAID RESIDENT COMMON AREA 

The non-overlaid resident common area is the easiest 
form to use. The fundamental sequence to generate one Is: 

1. Define it — determine which PSECTs and/or global 
symbols are the ones to be shared and design the resident 
common area. 

2. Create allocation for it — using a quicky MACRO pro¬ 
gram (3-4 lines usually, examples to follow). 

3. Build it — using the task builder with resident 
library switches. (See the examples and Chapter 7 of the 
RSTS/E Task Builder Manual.) 

4. Prepare for installation — run the output task 
through MAKSiL. 

5. Install the resident common area mapped 
Read/Write. 

To use a non-overlaid resident common area, you take 
the following steps: 
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1. Create your high-level language program( s). 

2. Task build using the new resident common area (see 
Options in TKB manual. Chapter 3.2). 

3. Run your programs. 

The first set of steps is done only once. After that, us¬ 
ing it is as easy as faliing out of bed. 

DEFINE A COMMON AREA 

Let's assume that we have decided to share two 
record/common areas. We will call them RESRC1 and 
RESRC2. Their lengths are 1000 bytes and 2500 bytes 
respectively. We will call the common area RESDAT and use 
account [1,53] for the development. These names and sizes 
are examples only and can be anything that you want them 
to be. 

RESDAT Resident Common 


+-+ Base + 3500 

1 RESRC2 Mapped area 1 

1 2500 bytes long 1 

+-+ Base + 1000 

1 RESRC1 Mapped area 1 

1 1000 bytes long 1 

+-+ Base 

where: BASE is on an even 8k byte boundary. 

CREATE IT 

The first step is to write the MACRO program, thusly: 


.TITLE RESDAT 
.IDENT /01K1/ 

.RADIX 10 


Looks pretty on listings. 

For those of you who keep track of 
versions. 

So that you do not have to count in 
octal. 


.PSECT RESRCI.RW.D.GBL.REUOVR 


.BLKB 

.PSECT 

.BLKB 

.END 


The attributes match those 
generated by B -h 2 and are 
described in TKB manual (section 
4.2.1). The name must match the 
COMmon/MAP name that you plan 
to use in the program. 

1000 : Reserve 1000 bytes 

RESRC2.RW. D.GBL.REL.OVR 
2500 : Reserve 2500 bytes 

: Required by MACRO 


BUILD IT 

Next, you assemble this module (MAC RESDAT =RESD 
AT) and task build it as follows: 


TKB 

TKB > RESDAT/-HD/PI..RESDAT = RESDAT 
TKB>/ 

ENTER OPTIONS: 

TKB>PAR = RESDAT:0:0 
TKB > STACK = 0 
TKB>// 


Notice the following points about the task build. 

• The task Image has NO header and IS position in¬ 
dependent. 
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• NO header is mandatory for resident iibraries. 

• Position independence is recommended. 

• No map was called for. You may if you want, but 
there is nothing much there. 

• A symbol file WAS called for. This is required for 
MAKSIL. 

• The PAR option specified no fixed address range (0:0). 
This is the preferred way. because the task builder can then 
fit it in more easily to your program later. 

• The stack was set to zero. Remember that this is a 
shareable thing. Stacks exist in your own job area. 


100 Map 


\ Map 


1000 

! 


(RESRC1)! Use the same PSECT or 
! MAP name, please 
Cust.lD$(199) = 5%! 200 customers 

(RESRC2)! Second record 
Prod.Code$(99) = 5% 
Prod.Desc$(99) = 45% 


MAIN — LINE STARTS HERE 


PREPARE FOR INSTALLATION 

The next step is to run MAKSIL and create the resident 
library, sort of like this: 

RUN $MAKS1L 
AKSIL V07 . . . 

Resident Library Name ? RESDAT 

Task-Built Resident Library Input File < RESDAT. TSK> ? 
Include symbol table (Yes/No) < Yes> ? 

Symbol Table Input File <RESDAT.STB> ? 

Resident Library Output File <RESDAT.LIB> ? 

RESDAT built in 2 K-words, 0 symbols in the directory 
RESDAT.TSK renamed to RESDAT.TSK<40> 


The program itself is standard BASIC -i- 2 code. The two 
stipulations you have are that: 

• The MAP names must match the PSECT names in the 
MACRO module. 

• The length of your MAPs CANNOT exceed the allo¬ 
cated space without incurring some problems. I’ll leave it up 
to you to discover them. They quickly become self evident. 

SECOND STEP FOR USAGE 

In the command file, you add ONE line to use the resi¬ 
dent common area. 

Sample Command File 


INSTALL IT 

Finally, you add the resident common area, using 
UTILTY. Up to this point, all functions may be performed 
under a non-privileged account. This is the ONLY step that 
must be done using a privileged account. 

RUN SUTILTY 
UTILTY V07 . . . 

» ADD LIBRARY [1.53]RESDAT<0>/ADDR:???/RW 
» EXIT 

Two points to notice: 

1. The use of an explicit protection code. 

The default protection code is < 42 > when you add a 
library. That implies Read access for everyone, but no 
Writing. You must supply a valid protection code in the ADD 
statement despite the protection code that is on the resident 
library disk file. Now, you set any protection code that you 
want to protect it at the user, group, or system level. Even 
privileged programs will get ”?Protection violation" if they 
try to access a library that does not allow them write access. 
I suggest that you use a protection code of <0>. 

2. The use of the /RW switch. 

The default mapping of the resident library is Read¬ 
only. You must specify that the resident common area is 
mapped Read/Write or the memory management hardware 
might take it to mind to zap you, if RSTS/E doesn’t get you 
first. 

FIRST STEP FOR USAGE 

You now have a resident common area ready to use. 
The following BASIC-h 2 example will show Just how easy it 
is to really use it. 


SY:PROG A,SY:PROGA= SY:PROG A/MP 
UNITS=12 

ASG=SY:5:6:7:8:9:10:11:12 
RESLIB=LB :B ASICS/RO 

Additional line -> RESCOMz[1,53]RESDAT/RW 
EXTTSK=102it 
// 

Use TKB to build your program. There should be no er¬ 
ror messages issued by TKB. 

if there are. you’ve messed up somewhere. You should 
check the map file and make sure that the starting address 
of the first PSECT (RESRC1 in this example) is starting on a 
high-up 8kb boundary. Since the starting addresses are in 
octal, the thing to remember is that 8kb is 20000 (octal) 
bytes. So you should see a line in the memory allocation 
synopsis that looks like this: 


AHENTION RSTS COBOL USERS 


MACRO BASED COBOL CALLABLE UTILITY LIBRARY 
TO PROVIDE ACCESS TO RSTS FEATURES OF CHAIN, 
ECHO CONTROL, CCL, CORE COMMON, 

AND JOB NUMBER. 


DIVERSIFIED BUSINESS 
SYSTEMS 


7250 C Commerce Dr. • Mentor, Ohio 44060 
216/942-6961 

SYSTEMS DESIGN AND CUSTOM SOFTWARE 
OVER TEN YEARS EXPERIENCE 
WITH RT-11 AND RSTS 

Professional assistance in hardware, software and systems 
software selection, upgrades and installation. 

CIRCLE 187 ON READER CARD 
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F.ESRC1(RW,D,GBL,REL,0VR) 120000 001750 001000. 

I 

I 

This is the starting address— 

Now, run your program. This is the end of the simpler 
version of resident common. 

OVERLAID RESIDENT COMMON AREA 

The term "over-laid resident common area" is loosely 
used. The data is not physically overlaid, only the Active 
Page Registers are modified to map the correct section of 
data into your virtual address space. All the data resides 
physically in memory. I use the term overlaid common 
because it is mapped using the "auto-load overlay 
mechanism." The concept of building overlayable resident 
common areas came to me from the combination of two 
references in the task builder manual. Knowing how to use 
them has come from a lot of hacking. You can check the 
TKB references yourself: 

• using the .NAME directive to create loadable 
segments that contain no executable code {Chapter 5. pp. 
5-11 to 5-13), 

• using the auto-load/overlay mechanism to 
dynamically remap your window in a resident region 
(Chapter 7). 

SAMPLE USE OF OVERLAID COMMON 

Let s assume that we have an application that is a 
transaction processor. We want to have several common 
modules that perform a given function for the whole ap¬ 
plication. For example, a screen manager to handle the 
screen traffic, several file handlers to handle the RMS traffic 
and a transaction processing manager to schedule all and 
sundry activities. As a result, we have many common areas 
of the same layout, one for each of the currently active 
users. It is possible to use a scratch pad file or send around a 
lot of large messages. Both of these approaches involve 
significant overhead (one on disk accesses and the other on 
small buffers). Instead let’s design a resident common area 
that looks like this: 

OVRDAT Resident Common Area 


I I Control Area I Overlay Window 1 

I +- ^ <—+ 

I I Transaction Context 1 Overlay Window 2 

I I for User #1 II 

Resident-+ +-+ <—+ 

Common I I Transaction Context I Overlay Window 3 

Region ! I for User #2 I I 

j +-+ <__+ 

1 I Transaction Context I Overlay Window 

I I for User #3 I I 


The usage of the different areas and sizes of each may 
be different. This example uses two types of areas and two 
different sizes. The control region would contain the infor¬ 
mation used in controlling the remainder of the areas (e.g., 
areas in use. areas free) and perhaps some application data 
(e.g., current business date, application status). Each of the 
context areas would contain the same format for the data 
area but each would contain data unique to a given user. 


Then, when a program was servicing user *^1, it would 
"overlay" into the transaction context area for that user, 
and so on for each user being serviced. In this fashion, a pro¬ 
gram could easily service many users. 

Now. I realize that the example of the application is 
rather complex, but I have made it so to deliberately show 
possible uses. There are many more complex and many less 
complex. Actual uses I will leave to the reader (that’s you). 

MAKING IT 

The fundamental sequence to generate an overlaid resi¬ 
dent common area is similar to generating a non-overlaid 
resident common area: 

1. Define it — determine what data is to be shared and 
design the overlay structure. 

• for BASIC + 2 use MAPs/PSECTS 

• for DIBOL use variables/Global symbols 

2. Create it — using several MACRO programs. 

3. Build it — using an overlay descriptor file. 

4. Prepare for installation — by running the output 
task through MAKSIL. 

5. Install the resident common area mapped 
Read/Write. 

To use an overlaid resident common area, you take the 
following steps: 

1. Create your high-level language program(s) with the 
following characteristics: 

• specifically defined MAPs (more on that later), 

• calls to NAMEd segments to remap the areas as 
required. 

2. Build your program using the new resident common 
area. 

3. Run your program. 

As before, the first set of steps is done only once. 

The three points that are CRITICAL to the successful 
completion of this portion are: 

1. setting up the MACRO program correctly and sneak¬ 
ily to overcome TKB ’features," 

2. specifying the correct overlay description so that 
your data does not get muxed ip. and 

3. coding your program so that you do not tamper with 
the wrong things. 

DEFINING A RESIDENT COMMON AREA 

Using the previously described example, we will design 
an overlaid resident common area with a zero length root 
and two types of segments. 

1. The first segment type is the control area and it ex¬ 
ists once. The size of the segment is 1000 bytes and it con¬ 
tains data about the availability of the other three slots and 
who owns them. etc. 

2. The second segment type is the transaction context 
area and it is duplicated three times, once for each active 
user. The size of this area is 8192 bytes. It contains three 
major sections: 

• a screen buffer containing the current data from 
the entire screen. 

• a workspace that contains the current records and 
other essential variables for this transaction. 

• and a journaling area for record updates. 
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39100 Liberty St. / Frembnt, Ca. 94538 
: ; ’ : \ (415) 794-2538 - 


*'DEC„.DIGITAL and VAX are registered Vademarks of Digital Equiptnent Corporation 


The future has a ■ way qf becoming the 
present. Tymshare has made the future NOW, 
in announcing the first in a family of DEC* 
compatible disk subsystems. ■ 

Tymshare Voyager Series disk subsystems' 
offer the .DEC computer user, increased disk 
Storage capacity, reduced space and power, 
requifements and attractive pricing 
alternatives. * . 

Have- you evaluated your present "disk 
subsystem costs? 

When It comes to experience and reputation 
Tymshare is second to none. When it comes 
to Price/Perforrfiance. and. Mixed; Vendor 
Support, Tymshare is.one. step beyond / 
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CREATE IT 

First we write a MACRO program to define and allocate 
the space for the control area. It looks something like this 
(explanations follow details, like in a mystery): 

.TITLE OVRCTL ; Keeps it separate from the 
; other exarple. 

.IDENT /01KI/ 

.RADIX 10 ; for decimal phreaks 

.PSECT DUMMY,RW,D,GBL,REL,CON 
.BLKB iiil8 

.PSECT DUMMY,RW,D,GBL,REL,CON 
.BLKB 

.PSECT DUMIiY,RW,D,GBL,REL,CON 

.BLKB 104 

.END 

Additionally, we describe a MACRO program to allocate 
the space for the transaction context area, thusly: 

.TITLE OVRTXN ; Pretty, eh? 

.IDENT /01KI/ 

.RADIX 10 

.PSECT DU!>IMY,RW,D,GBL,REL,CON 
.BLKB 448 

.PSECT DUMMY,RW,D,GBL,REL,CON 
.BLKB 448 

. repeat for a total of 18 times to 

get 18*448 bytes (or 8054) 

.PSECT DUMMY, RW,D,GBL,REL, CON 

.BLKB 7 8 

.END 

The last MACRO program is required to give a you a 
zero length PSECT to use in BASIC+ 2. It’s the simplest. 

.TITLE NULROT 
.IDENT /01KI/ 

.PSECT OVRDAT,RW,D,GBL,REL,OVR 
.END 

Looking at these examples, the first question that 
comes to mind is “What the @^%t @** ? ”. More lucid ques¬ 
tions are: 

• Why repeat the PSE(jr names with all those unusual 
numbers? 

• Why have a zero length PSECT? 

CREATION EXPLAINED 

Answers: First of all, I don't know "What the I ^ ?" 

• TKB gets very upset about allocating empty space in 
overlaid segments that have the GBL and NODSK attributes. 
What this boils down to is that an overlay segment in an 
overlaid resident common has: 

• the GBL and NODSK attributes set automatically 
for each overlaid segment. NODSK states that 
there is no loading of data/code that occurs when 
the segment is invoked. So in practice, the auto¬ 
load mechanism will map the window but will not 
load from disk. This is exactly what we want. 

• to have space allocated so that we can access the 
required addresses when we reference the data. 
Combine this with the fact that TKB does not allow 


pre-allocation of empty space and we have ... 

• an interesting opportunity, AND 

• a tacky solution. TKB will not complain IF the 
PSECT has the CONcatenate attributes AND each of 
references does not exceed 448 bytes ( 340 octal 
words). Therefore, you will notice that the at¬ 
tributes for DUMMY are not OVeRlaid. 

• A zero length PSECT Is only required for BASIC+ 2. 
BASIC + 2 generates a PSECT with the same name as your 
MAP. The PSECT is then the common point of reference. 
TKB will not store PSECT names from overlay segments in 
the symbol table. Therefore, when you build a resident com¬ 
mon you get all PSECTs from the root, but none from the 
overlay segments and as a result it must be faked. The solu¬ 
tion is to define a zero length root with one PSECT name and 
use TKB's inbred intelligence to overcome the small 
discrepancies in length (amidst many diagnostic messages). 

An aside for DIBOL users, you do not have to go 
through the dummy PSECTT route. You may define your 
common variables as global symbols at the correct offset. 
The naming convention of the global symbols is such that 
the five character variables have a dollar sign appended or 
preceding it (I am not sure which). Experiment. 

BUILD IT WITH AN DDL FILE 

If I still have your attention at this point... let's get 
onto the ODL file. Remember this is the second critical point 
(but not as messy as the previous one): 

.ROOT NULROT-*!(AREA0,AREA1,AREA2,AREA3) 
.NAME CTRLOO.GBL 
.NAt^ SLOTCl.GBL 
.NAME SLOT02,GBL 
.NAME SLOT03,GBL 
AREAO: .FCTR CTRLOO-OVRCTL 
AREA1 : .FCTR SLOT01-OVRTXN 
AREA2: .FCTR SLOT02-OVRTXN 
AREA3: .FCTR SL0T03-0VRTXN 
.END 

and we need the accompanying command file: 


SY:OVRDAT/-HD/PI,OVRDAT,OVRDAT=SY:OVRDAT/MP 

PAR=0VRDAT:0:0 

STACKrO 

GBLREFrCTRLOO , SLOT01 , SLOT02, SLOT03 
// 

Task build this arrangement. There should be no errors. 
Errors that I have encountered are: 

• TKB — FATAL — I/O ERROR ON OUTPUT FILE — this 
very informative message says clearly that the preallocated 
space in one of your PSECTs in an overlay segment is too big. 
Reduce the size of the .BLKB directive. 

STEPS 3 & 4 

You then run it through MAKSIL as in the previous case 
Oust substitute OVRDAT for every occurence of RESDAT). 

You must now add the library using UTILTY. The notes 
mentioned in the non-overlaid common also apply here. 

This is the end of creating an overlaid resident common. 
Now, aren’t you glad that it needs be done only once? 
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Software Packages for VAX/VMS and RSTS/E. 


Resource Accounting, Auditing and Billing 
VAX/VMS and RSTS/E. 


RABBIT-1 is a general system for auditing, 
accounting and charging computer usage 
from the computer center to individual users, 
groups of users or customers. These may 
represent real accounts receivable, as in the 
case of a service bureau, or may be for 
budgeting and cross-charging in-house 
system resource consumption. 


RABBIT-1 will accurately accumulate and 
distribute all system usage. This includes not 
only CPU utilization but DISK, I/O, Printing, 
Tape Storage, Equipment Rental, Manuals, 
Communication Costs, and Programming 
services. 

A secondary purpose served by RABBIT-1 
is to maximize the usage of the computer 


RABBIT-1 

facility by encouraging users to distribute 
their utilization across as much machine 
availability as possible. Multi-level 
discounting facilities encourage the shifting 
of computer demand to off-prime time for 
more throughput at no additional costs. 


RABBIT-2 


System Performance Analysis 
VAX/VMS and RSTS/E. 


If your system is suffering from slow 
response, dogged I/O, reduced throughput, 
then put RABBIT-2 on your case. RABBIT-2 
locates the trouble spots in your operating 
system and identifies the source of the 
problems. 

RABBIT-2 will chart your system 
performance, on an hour by hour, user by 
user, or program by program basis. 

RABBIT-2 will quickly sketch a profile of your 
average system day^ your average user 
demands, and your average program 
resource requirements. 


RABBIT-2 provides the tools you need to 
investigate system throughput in terms of 
CPU, I/O, memory, connect, KCTs, 
etc.—over any time period you specify. You 
can play “What if?” by simulating the removal 
of the offending program or user and 
displaying the results of the change. 

Easy to use with menu driven reporting. 
You select options with easy; fill-in-the-blanks 
prompting. 

Easy to install. No SYSGEN. Takes just 
minutes. 


RABBIT-2 capabilities include: 

—Batch and interactive analysis 
—Interval or time displays 
—Resource consumption diagrams 
—User and program investigation 
—Graphic or numeric output 
-WHOwasonWHEN 
—Profile analysis of users and programs 
—Ratios of resources utilized 
—Rankings of users and programs 
—Forecasting of future resource 
consumption 


Job Accounting and Performance Monitoring 
RSTS/E Version 7. RABBIT 3 


RABBIT-3 is a complete performance 
monitoring and job accounting system 
designed especially for PDP-11 RSTS/E 
Version 7 users. Designed as a stand alone 
system, RABBIT-S is written entirely in PDP 
macro assembler for maximum operating 
efficiency. Fast and small, RABBIT-S runs in 
5K core with only a 1% (approximate) system 
degredation depending on the sampling rate. 

RABBIT 3 is flexible and easy to use. It’s 

Security System for 
RSTS/E Version 7. 


also easy to install. After loading the 
RABBIT-S tape or disk, just answer a few 
questions to tailor the system to your needs. 
In less than an hour of effort, your RABBIT-3 
will be generating complete, detailed user 
information. 

Options for RABBIT-S Users 

Auto-Crash Recovery 

—automatic restart from system crashes. 


Daily Disk Catalog 

—generates disk accounting information 
for each user. 

Security Tracer Record 

—provides step by step security 
information of user activities. 

Disk Critical Alert 

—alerts operator that free disk is below 
efficient levels. 


RABBIT-4 


RABBIT-4 is a stand-alone data file 
security system that operates under RSTS/E 
Version 7. RABBIT-4 prevents access to 
classified or confidential data fields by 
unauthorized personnel. Even priviledged 
users may be excluded from data files 
secured by RABBIT-4. Coupled with normal 
security measures, RABBIT-4 will ensure file 
integrity while monitoring all file access 
attempts. 

RABBlT-4 “locks up” designated data files 
from would-be intruders. /Ml attempted file 
violations are logged and available for 
analysis. Computer operations and security 
management may be immediately notified of 

For more information on the RABBIT system contact 

Telephone: (404) 955-2553 
TWX: 810-766-2256 

CIRCLE 21 ON READER CARD 


the file violation attempt, and the offending 
job rolled out or killed. Under RABBIT-4 
maximum security, the RSTS operating 
system may be disabled until the intrusion is 
cleared. 

RABBIT 4 provides up to 6 levels of 
security on a present maximum of 64 data 
files. Access to each secured data file is 
restricted only to authorized users through 
file access definition tables. Up to 32 wild 
card notations define the authorized users 
for each secured file. Access authorization 
may also be restricted to limited programs to 
ensure file integrity. 



RABBIT-4 creates and maintains a 
complete log of file access and violation 
attempts. Included in the log is: date, time, 
job, program, project-programmer and 
keyboard. The log of file accesses is available 
at all times to assigned security management. 
A recap report of violations and access 
attempts may be run at will. 

R/\BBIT 4 is written in PDP-11 macro to 
ensure optimized performance. The logged 
data is in ASCII stream format for prompt 
reporting. RABBlT-4 is controllable through 
OPSER and has an optional system crash 
recovery capability. 

RRXCQ-c 

6520 Powers Ferry Road 
Suite 200 

Atlanta, Georgia 30339, U.S.A. 




USING THE EXAMPLE 

In order to use this common area, we will create a pro¬ 
gram that references the resident common area and the 
overlaid segments. The only requirements are that: 

• the correct segment is overlaid (by calling it) prior to 
reference. 

• in BASIC + 2. the MAP name that is used must: 

• use the same name as the zero length segment in 
the root of the resident common. 

• use the FILL variable to offset individual record 
definitions into the overlaid segment. 


1100 

CALLS remap to new +-> 
segment | 


I Access Control Area 

Call CTRLOO I Remap to control area 
For 1 % = 01^ to 2 % 

If Contrl.InUse1{(I)l)=0!l 
Then 

Users = IS 1 - IS 

Contrl.InUseS(IS)=-lS 
Contrl.Name$(IS) = ••• 

Next IS 


I 2000 ! Access a transaction slot 

+-> Call SLOT01 If Users = IS 

■M.> Call SL0T02 If UserS = 2 % 

-*■-> Call SLOT03 if UserS = 3S 

If (Slot.StatusS and IS) <> OS 
Then 


STEP 1 

The sample data description portion of a program may 
look like this: 


Points to notice; 
-> 


Sample BASIC+2 Program 


MAP names must be ••—>100 
Identical | 

I 

I 

I 

I 

I 

I 

+->200 


Map (OVRDAT) I Same for 2 ill areas 
Contrl.Name$(2S) = 6 % 

, Contrl.InUseS(2S) 

, Contrl.StatusSC2S) 


Map (OVRDAT) 

Slot.Screens = 1000S 

, Slot.StatusS 

, Slot.EtcS 


STEP 2 

Compile your program and create a command file that 
has an additional line in it (or add the additional line if you 
use the dialogue mode of TKB): 

Saniple Command File 


SY:PROGB,SY:PR0GE=SY:PROGB/KP 
UNITS=12 

ASG=5Y:5:6:7:8:9:10:11:12 
RESLIB=LB:PASICS/RO 

Additional line -> RESC0M=[1,53lOVRDAT/RW 
EXTTSK=1532 
// 


Now the code part of the program is almost normal, 
but notice the calls to the NAMEd segments to force the 
remapping of the OVRDAT map. 

1000 I Main - line 


MACRO MAN 

SOFTWARE 

CONSULTING 

Custom Macro Programming/Consulting on 
RSTS/E & VAX/VMS 
also 

RSTS/E MONITOR INTERNALS 
& TUNING 

★ Telephone Support Available 

★ On-Site Support Available 

★ On-Site Seminars Available 

MACRO MAN SOFTWARE CONSULTING 

BOB MEYER 
9 LOCKWOOD AVENUE 
FIELDSBORO. NJ 08505 

609 / 298-9127 


At this point, you should get several diagnostic 
messages from the task builder. There will be one for each 
different map statement in the source modules. The 
message informs you that the PSECT reference conflicts 
with the PSECT in the library OVRDAT. This is to be ex¬ 
pected. because the library was built using the PSECT 
named OVRDAT with a zero length associated with it. and 
you have just said that it is 8192 bytes long. Now what hap¬ 
pens is that you get your task built properly, because TKB 
uses the starting address of the resident common as the 
starting address of your PSECT and as a result your 
variables are now stored in the resident common. If you 
want further details feel free to give me a call. 

ELEPHANT TRAPS 

There are several areas that you may term “elephant 
traps." because they are large holes that you can fall into 
and never be heard from again. They are the following: 

• Remember it’s shared, someone can get your MAPs. 

• "Sophomores"(semaphores) are essential. 

• Beware of single threaded bottlenecks. 

• Check overlay segment length carefully. 

• You lose chunks of address space (APRs). 

SHARED DATA 

In the usual programming environment, you know that 
when you put information into a variable, it doesn’t change 
until you put something else in it. When you share data 
through resident common areas, remember that all vari¬ 
ables in the common area can be changed by another pro¬ 
gram when your back is turned. Therefore, the protocol for 
using resident common must be carefully defined prior to 
implementation. Two possible forms are: 

• use of flags in a control area 

• use of slots that are unique to one user/transaction. 
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USE OF SEMAPHORES 

You should consider carefully the correct use of 
semaphores for one program to be able to signal another 
program about significant events. RSTS/E does not have 
many system services for allowing different jobs to syn¬ 
chronize their activities. There is Send/Receive (with sleep) 
or forced data into psuedo keyboards that will wake up a 
sleeping job. Otherwise, you have to design a flag setting 
and sleep n seconds arrangement between jobs. One thing 
to be VERY wary of is SUSPENDing and RESUMEing jobs. It 
is easy to have both jobs SUSPENDed at the same time. 

SINGLE THREADED BOTTLENECKS 

DO NOT accidently create another FIP. A single threaded 
server is a program that will process one request to comple¬ 
tion before processing the next request on the queue. When 
there are only two or three users of disk intensive server 
that is single threaded, you will see rapid system degrada¬ 
tion. Therefore, design any single threaded server with a 
careful eye to the amount of disk activity that it must per¬ 
form to finish a request. 

OVERLAY SEGMENT LENGTH 

One problem in using overlaid segments with BASIC-h 2 
is that you can not be sure that your MAP does not exceed 
the actual length of an overlay segment. This is because of 
the deliberate introduction of a possible conflict that TKB 
warns you about. The choices are two. either: 

• Make ALL overlay segments reserve B.kbytes. which 
will rapidly inflate the physical memory requirements of a 
resident common region, sometimes even double, or 

• Verify the length of a PSECT in your program s MAP 
against the length of an overlay segment in the resident 
common area. 


LOSS OF ADDRESS SPACE 

The PDP-11 allows you to divide your virtual address 
space into eight pages. Each page may be from 64 bytes to 
8192 bytes in size. Each page also starts at an 8kbyte bound¬ 
ary. This feature is used by RSTS/E to separately load and con¬ 
trol run time systems, resident libraries and programs that 
are all part of the same job. However, if you use only a portion 
of one page (e.g., a Skbyte resident common area) you lose ac¬ 
cess to the remaining portion of the virtual addresses of that 
page (e.g., 3kbytes are unavailable). For example. 

Sample Virtual Address Space 


3kbytes lost —> 


+-+ 64kb 

I BASICS ResLib j 

+-+ H8kb 

I RMSRES ResLib j 

+-+ 32kb 

I//////////////////////I 

+-+ 29kb 

j 5kb Resident Common 1 

+-+ 2i*kb 

j User Job ! 


+-+ Okb 

This implies that you have to design the resident com¬ 
mon area balancing the advantage of shareable data against 
the possible loss of virtual address space. 


Sample "BEFORE" Program 


Unused address —> 
Space 


I Run Time System 


I Resident Library I 

+-+ 

I///////////////////////I 


I User Data I 

I User Program j 

+-+ 


64kb 

i|8kb 

32kb 

??kb 

Okb 


This program will only be able to use a resident com¬ 
mon if combined program size and non-shared data is less 
than the current available memory size minus the size 
(rounded up to Skbytes) of the resident common area. For 
example, if the program is 26kbytes prior to splitting it into 
Skbytes of shared data and 23kbytes words of program and 
non-shared data, then you could do it. It would look like this: 


Sample "AFTER" Program that Works 


+- + 6^kb 

I Run Time System | 

+-+ liBkb 

1 Resident Library I 

+-+ 32kb 

Unused space —> I///////////////////////I 

+-+ 27kb 

j Shared Data Common I 

+-+ 2^kb 

Unused space —> I///////////////////////I 

+-+ 23kb 

I User Data j 

I User Program I 

+-+ Okb 

However, if you had a program that was already 
30kbytes and you want to share 3kbytes of data you are left 
with 27kbytes of program and non-shared data. If your pro¬ 
gram currently uses 32kbytes worth of resident libraries 
(i.e.. BASICS and RMSRES). you will have to resort to overlay¬ 
ing RMS (not a good thing) or use some other shoe-horning if 
you will insist on trying to use the resident common area. 

Sample "AFTER" Program that DOES NOT Work 


I Run Time System 

.f-—_— 

I Resident Library 
Unusable space —> I/////////////////////// 


64kb 
il8kb 
+ 32kb 
27kb 


-+ 27kb I- 

! User Data I ! Shared Data Common 

I User Program ! ♦- 

+-+ Okb 

I 

I I 

-I-— Notice small overlap in —+ 
address ranges 

On the other hand, if it allows you to cleanly break your 
program into two or three smaller pieces, maybe it is not a 
bad idea after all. 

FINAL NOTE 

JUST BE VERY CAREFUL ABOUT ALL THIS GOOD 
STUFF. YOU SHOULD LEARN HOW TO USE IT BEFORE YOU 
COMMIT YOURSELF TOO FAR. IT IS VERY USEFUL. BUT 
EVERYTHING HAS ITS COST. m 


t 27kb 

I 

+ 2ilkb 
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T 1IPS& 

ECHNIQUES 

A Column For The Advanced RSTS/E User Steven L. Edwards, software Techniques. Inc. 


MONITORING FREE DISK SPACE 


Title: F R E 0 N 

Version: Y0101A 


For production systems, the worst thing that can hap¬ 
pen is that the operating system crash. The second worst 
thing that can happen is that you run out of disk space. This 
invariably happens five minutes before your all night batch 
job completes, or after your data entry operators have spent 
five hours entering transactions into a temporary file. The 
consequences are rarely convenient. 

The ideal solution would be for the operating system to 
stall that job until the system manager can free up some 
more disk space. The ideal solution is beyond the scope of 
this column. However, we can set up a job that will monitor 
the free disk space, and do something about it. 

The program presented here allows the system 
manager to establish a 'yellow' limit and a red' limit for 
each disk device on the system. 

When the free space falls below the yellow' limit, the 
program sends a message to the operator's service console 
via OPSER. 

When the free space falls below the red' limit, the pro¬ 
gram sends a message to the operator's service console. In 
addition, the program then suspends all jobs, and sets all ac¬ 
tive terminals to 'SPEED O' to prevent unintended type- 
ahead. The program then suspends itself. When the system 
manager frees up sufficient disk space, s/he can resume 
this program which will restore all of the jobs it tampered 
with. 

Please note the following: 

1. This program has only been tried on two systems, 
both of which had two RM02 type disks. Be prepared to fix 
any bugs you may uncover. 

2. Entering a value of 0. or just typing < RETURN > to 
a limit question effectively disables that limit. 

3. This program assumes job 1 is ERRCPY and job 2 is 
OPSER. It does not suspend jobs 1 and 2. 

4. This program assumes that you do not want to set 
KBO to SPEED O' in case a 'red' limit is exceeded. 

5. If you have malicious users, do not establish red' 
limits for any disk they can create files on. 

6. If your programs extend files that have clustersizes 
greater than the pack clustersize. you must ensure that 
there are free clusters of the size required above the limits 
set. 

7. This program will not catch directory extension 
failures. 


Edit date: 
Written by: 
Date: 


0?-MAy-1983 
STEVEJ; L. EDWARDS 
17-JAN-1983 


Package: In-House 

Description: MONITOR FREE DISK SPACE 

II Copyright (C) 1983 
Software Techniques 
Los Alamitos, CA 90720 

Title to and ownership of the software shall at all times remain 
in Software Techniques. 

The information in this document is subject to change without 
notice and should not be construed as a commitment by Software 
Techniques. 


This software is un-released and Software Xep^niques has no 
commitment to support it at this time, unless stated elsewhere in 



writing. 




20! 


Modification History 




Ver/Edit 

Date 

Reason (Who) 


21 1 

X0101A 

17-JAN-1983 

Initial conception. 

(SLE) 



X0102A 

02-MAY-1983 

CHANGE THE SIZE OF THE LIMIT 
CHANGE METHOD OF DETERMINING 
SEND A MESSAGE TO OPSER. 
MINOR CODE CLEAN-UPS. 

(SLE) 

ARRAYS. 
WHEN TO 


Y0101A 

02-MJ(Y-1983 

PROMOTE TO GROUP SUPPORT. 
(SLE) 


1001 


Program Description 



101 1 


THIS PROGRAM MONITORS 

THE FREE SPACE ON ALL DISKS ON 

THE 


WHEN THE FREE SPACE FALLS BELOW THE 'YELLOW' LIMIT, THE PROGRAM 
SENDS A.MESSAGE TO THE OPERATOR'S SERVICE CONSOLE VIA OPSER. 

WHEN THE FREE SPACE FALLS BELOW THE 'RED' LIMIT, THE PROGRAM 
SENDS A MESSAGE TO THE OPERATOR'S SERVICE CONSOLE VIA OPSER. THE 
PROGRAM THEN SUSPENDS ALL JOBS AND SETS ALL ACTIVE TERMINALS TO 
SPEED 0 TO PREVENT UNINTENDED TYPE-AHEAD. WHEN THE OPERATOR 
FREES UP SUFFICIENT DISK SPACE, S/HE CAN RESUME THIS PROGRAM 
WHICH WILL RESTORE ALL OF THE JOBS IT TAMPERED WITH. 


5001 


Compile time variables 


501 .DEFINE .NAME! = "Fremon" 

\ .DEFINE .VERSI0N$ = "YOI.OIA" IY0101A 

\ .DEFINE .CHAN.KBJ = M 

I 

I Program Name. 

I Program Version. 

I Channel number for terminal I/O. 

9001 

I Dimension Declaration 

I 

I 901-929 local dimension declarations 
I 930-949 library dimension declarations 
! 950-979 map statements 


901 DIM 

PRIORITY*(63») 

,RED_LIMIT(80J) IX0102A 

,TERMINAL_SPEEDJ(128») 

,YELLOW_LIMIT(80J) IX0102A 

! 

! JOB PRIORITY ARRAY. 

! RED LIMIT ALARM ARRAY. 

! TERMINAL SPEED ARRAY (RECEIVE,TRANSMIT). 

! YELLOW LIMIT ALARM ARRAY. 
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902 MAP 


\ MAP 


\ MAP 


\ MAP 


(UUTE1) ! 

! .DATA BLOCK FOR MONITOR TABLES PART I 
! 

JOBX?_FILL» ! JOB NUF^ER TIMES 2 / FILL BYTE 
,CNT_KB_MAXCNT$ ! MAX KB FJUMBER / MAX JOB NUtfliER 
.DEVCNT? 

.DEVPTRJ 
,FILLJ 
, JOBTP-LJ 
,FILL$ = 6X 
.UNTCNT!^ 

,SATCTL* 

,FILL* 

.SATCTMJ 
,FILL$ = Ut 


I TABLE OF MAX UNIT NUMBER 
I TABLE OF POINTERS TO DEVICE DDB's 
! FILLER 
! JOB TABLE 
! FILLra 

I TABLE OF UNIT STATUS / OPEN COUNT 
! TABLE OF FREE BLOCK COUNTS (LSW) 

! FILLPJf 

! TABLE OF FREE BLOCK COUNTS (MSW) 

I FILLER 
! 


(UUTE1) ! 

I REMAP THE MONITOR TABLES I DATA BLOCK 
! TO BE ABLE TO ACCESS ENTIRE THING AT ONCE 
! 

UUTBU = 30? I UUTBU = SYS(CHR$(6?) CHR$(-3t)) 


(UUTB2) I 

! DATA BLOCK FOR MONITOR TABLES PART II 
! 


FILL$ = 9? 

,DEVNAM? 

,FILL? 

,DEVOKB? 
,FILL$ = 10? 
,LOGNAM? 
,FILL$ = 8? 


I FILLER 

I DEVICE NAME TABLE 
I CSR TABLE 

I NUMBER OF DISKS TIMES 2 
I FILLra 

! TABLE OF SYSTEM LXICAL NAMES 
! FILLER 
! 


(UUTB2) I 

I REMAP THE MONITOR TABLES PART II DATA BLOCK 
! TO BE ABLE TO ACCESS ENTIRE THING AT ONCE 
! 

UUTB2$ = 30? ! UUTB2$ = SYS(CHR$(6?) ♦ CHR$(-12?)) 

I 


9991 

I Start of Initialization 

! 


1000 ONERROR GOTO 19000 

I 

I Set standard error trap. 

1010 PRINT .NAME$ ♦ HT ♦ .VERSION$ ♦ HT ♦ "Software Techniques" 
+ CR + LF -f "Free disk space monitor." CR ♦ LF 
UNLESS EO? 

! 

! Print standard header on ’Run' entry. 

1030 UUTBU = SYS(CHR$(6?) CHR$(-3?)) 

\ UUTB2$ = SYS(CHR$(6?) CHR$(-12?)) 

\ CNT_KB? = CNT_KB_MAXCNT? AND 255? 

\ MAXCNT? = SWAP?(CNT_KB_MAXCNT?) AND 255? 

\ OUR_JOB_NUMBER? = (J0BX2_FILL? AND 255?) / 2? 


I 

\ NULL_9$ = STRING$(9?, 0?) IX0102A 
\ NULL_10$ = STRING$(10?, 0?) IX0102A 
\ PASS_INTERVAL? = 30? IX0102A 
\ YELL0W_C0UNT?, YELL0W_1?, YELL0W_2? = 0? IX0102A 


GET MONITOR TABLES - PART 1. 

GET MONITOR TABLES - PART 2. 

GET THE NUMBER OF TERMINALS ON THIS SYSTEM. 
GET THE MAXIMUM JOB NUMBER. 

GET OUR JOB NUMBER. 


A FEW NULLS. X0102A 
A FEW MORE NULLS. X0102A 
INITIALIZE OUR PASS INTERVAL. X0102A 
INITIALIZE THE YELLOW MESSAGE COUNTERS. X0102A 


2010 

\ 

\ 

\ 

\ 


\ 

\ 

\ 

\ 

\ 

\ 


UNTCNT_P01NTER? = UNTCNT? 

FOR DEVICE_INDEX? = 0? TO (DEVOKB? - 2?) STEP 2? 

FOR UNIT_NUMBER? = 0? TO PEEK(DEVCNT? ♦ DEVICE_INDEX?) 
UNIT_STATUS? = PEEK(UNTCNT_POINTER?) 

GOTO 2020 

IF ((UNIT_STATUS? < 0?) 

OR ((UNIT_STATUS? AND 40 96?) <> 0?)) 

DSK$ = CVT?$(SWAP?(PEEK(DEVNAM? ♦ DEVICE_INDEX?))) 

♦ NUM1$(UNIT_NUMBER?) ♦ 

SUB_SCRIPT? = (DEVICE_INDEX? • 4?) ♦ UNIT_NUMBER? 
PRINT #.CHAN.KB?, "Enter YELLOW limit for " 

♦ DSK$ ♦ SP; 

INPUT #.CHAN.KB?, YELLOW_LIMIT(SUB_SCRIPT?) 

PRINT #.CHAN.KB?, "Enter RED limit for " 

♦ DSK$ ♦ SP; 

INPUT #.CHAN.KB?, RED_LIMIT(SUB_SCRIPT?) 


2020 


UNTCNT_POINTER? = UNTCNT_POINTER? ♦ 2? 
NEXT UN1T_NUMEER? 

NEXT DEVICE_1NDEX? 


MAKE SURE WE ARE USING THE CORRECT POINTER VALUES. 

LOOP THROUGH THE MONITOR’S TABLES OF DEVICES. 

LOOP THROUGH ALL UNIT NUMBERS. 

SKIP DEVICES THAT ARE NOT MOUNTED OR ARE NFS. 
CONSTRUCT THE DEVICE NAME. 

CALCULATE THE PROPER SUBSCRIPT. 

ENTER THE YELLOW LIMIT FOR THIS DEVICE. 

ENTER THE RED LIMIT FOR THIS DEVICE. 

BUMP THE POINTER. 

TRY THE NEXT UNIT NUMBER. 

TRY THE NEXT DEVICE. 


2999 PRINT #.CHAN.KB?; CR f LF 

♦ "Detaching..." 

♦ CR LF 

♦ CR ♦ LF 

♦ CR ♦ LF 

♦ CR + LF 

\ CLOSE #.CHAN.KB? 

\ TEMP_0$ = SYS(CHR$(6?) ♦ CHR$(7?)) 

I 

I TELL THE USER WHAT WE ARE ABOUT TO DO. 

I CLOSE THE TERMINAL CHANNEL. 

I DETACH FROM THE TERMINAL. 


3000! 

! MAIN PROGRAM LOOP 


3010 LOGNAM_POINTER? = LOGNAM? 

\ SATCTL_POINTER? = SATCTL? 

\ SATCTFLPOINTER? = SATCTM? 

\ UNTCNT_POINTER? = UNTCNT? 

\ FOR DEVICE_INDEX? = 0? TO (DEVOKB? - 2?) STEP 2? 

\ FOR UNIT_NUMBER? = 0? TO PEEK(DEVCNT? DEVICE_INDEX?) 

\ UNIT_STATUS? = PEEK(UNTCNT.POINTER?) 

\ GOTO 3020 

IF ((UNIT.STATUS? < 0?) 

OR ((UNIT.STATUS? AND 4096?) <> 0?)) 

\ DSK$ = CVT?$(SWAP?(PEEK(DEVNAM? ♦ DEVICE.INDEX?))) 

♦ NUM1$(UNIT_NUMBER?) ♦ 

♦ RAD$(PEEK(LOGNAPLPOINTER?)) 

♦ RAD$(PEEK(LOGNAM.POINTER? ♦ 2?)) 

\ SUB.SCRIPT? = (DEVICE.INDEX? • 4?) UNIT.NUMBER? 

\ FREE.BLOCKS = PEEK(SATCTL.POINTER?) 

\ FREE.BLOCKS = FREE.BLOCKS ♦ 65536.0 

IF (FREELBLOCKS < 0.0) 

\ FREE.BLOCKS = FREE.BLOCKS ♦ 65536.0 • PEEK(SATCTM.POINTER?) 

\ IF FREE.BLOCKS < RED.LIMIT(SUB.SCRIPT?) 

THEN GOSUB 5000 

ELSE IF FREE.BLOCKS < YELLOW.LIMIT(SUB.SCRIPT?) 

THEN YELLOW.COUNT? = YELLOW.COUNT? ♦ 1? 

\ GOSUB 4000 


I Define various variables. 

1110 OPEN "KBcKB.IO" FOR OUTPUT AS FILE #.CHAN.KB? 
,MODE 0? 

! 

I Open the terminal. 

2000! 

! Start of MAIN 


3020 

\ 

\ 

\ 

\ 

\ 


LOGNAM.POINTER? 
UNTCNT.POINTER? 
SATCTL.POINTER? 
SATCTM-POINTER? 
NEXT UNIT.NUMBER? 

NEXT DEVICE.INDEX? 


= LOGNAM^_POINTER? 10? 
= UNTCNT.POINTER? i- 2? 

= SATCTL.POINTER? 2? 

= SATCTM_POINTER? > 2? 


MAKE SURE WE ARE USING THE CORRECT POINTER VALUES. 

LOOP THROUGH THE MONITOR’S TABLES OF DEVICES. 

LOOP THROUGH ALL UNIT NUMBERS. 

SKIP DEVICES THAT ARE NOT MOUNTED OR ARE NFS. 


Word 

Processing * 


VAX/VMS, RSTS/E, 
RSX-11M 

*Wor(j-11 by 

Data Processing Design, Inc. 

181 W. Orangethorp Avenue 
Placentia, CA 92670 


On Track Systems Provides: 




Sales 

Service 

Installation 

Demonstrations 

Training 

Consulting 


At your 
convenience! 

At your 
office! 


On Track 


P.O. Box 24S 
Ambler, PA 19002-024S 
(21S) S42-700a 


CIRCLE 13 ON READER CARD 
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5060 


NEXT INDEX! 


CONSTRUCT THE DEVICE NAME. 

CALCULATE THE PROPER SUBSCRIPT. 

GET THE NUMBER OF FREE BLOCKS ON THIS UNIT. 
CHECK FOR A RED LIMIT VIOLATION. 

CHECK FOR A YELLOW LIMIT VIOLATION. 

BUMP THE VARIOUS POINTERS. 

TRY THE NEXT UNIT NUMBER. 

TRY THE NEXT DEVICE. 


3030 

IF 

YELLOW_COUNT! 


THEN 

YELLOW_1! = YELL0W_1! ♦ l! 


ELSE 

YELL0W_1!, YELLCIW_2! = 0! 

! 

IF 

WE GOT ANY YELLOW LIMIT VIOLATIONS, 

! 

THEN 

INCREMENT THE "DON'T BOTHER OPSER" 

! 

EI..SE 

CLEAR THE FLAGS. 


IX0102A 

IX0102A 

IX0102A 

X0102A 

X0102A 

X0102A 

X0102A 


3999 YELLOW_COUNT! = 0! IX0102A 

\ SLEEP PASS_INTERVAL! IX0102A 

\ GOTO 3000 

I 

! SLEEP FOR A LITTLE WHILE. 

I BRANCH BACK TO TRY AGAIN. 


40001 

I YELLOW LIMIT EXCEEDED 

I 


4010 


\ 

\ 


IF YELl.0W_2! = 0! 

THEN MESSAGE$ = "Yellow limit exceeded on " ♦ DSK$ 
* BQ. * BEL 
GOSUB 10100 
YELL0W_21 r YELL0W_1! 

ELSE YELL0W_2! = YELL0W_2! - 1* 


SEND A MESSAGE (VIA OPSER) IF WE HAVEN'T LATELY. 


IX0102A 

IX0102A 

IX0102A 

IX0102A 

IX0102A 

IX0102A 

X0102A 

X0102A 


4999 RETURN 

I 

I BACK TO MAINLINE CODE. 


STEP THROUGH THE TERMINAL DEVICE DATA BLOCKS, SETTING THE SPEED 
OF ALL TERMINALS OWNED BY A JOB TO ZERO. THIS PREVENTS THE 
USER'S FROM FILLING THEIR TYPE-AHEAD BUFFERS FULL OF CHARACTERS 
THAT THEY REALLY DON'T WANT. NOTE THAT WE ALSO SKIP KBO:. 


5500 TEMP_0$ = SYS(CHR$(6!) ♦ CHR$(-13!) ♦ CHR$(OUR_JOB_NUMBER!) 

+ CHR$(255!) ♦ CHR$(-128>)) 

\ FOR UNIT_NUMBER! = 1! TO CNT_KB! 

\ TEMP_0! = TERMINAL_SPEEDS(UNIT_NUMBER!) 

\ GOTO 5510 

IF (TEMP_0! = 0!) 

\ TEMP_0$ = SYS(CHR$(6!) ♦ CHR$(16!) ♦ CHR$(0!) 

♦ CHR$(UNIT_NUMBER%) ♦ NULL_9$ IX0102A 

♦ CHR$(TEMP_0! AND 255!) ♦ CHR$(0!) 

♦ CHR$(SWAP!(TEMP_0!) AND 255!)) 

\ TEMP_0$ = SYS(CHR$(6!) ♦ CHR$(-4») ♦ CHR$(UNIT_NUMBER!) 

♦ CHR$(17!)) 


5510 NEXT UNIT_NUMBER! 

\ FOR JOB_NUMBER! = 1! TO MAXCNT! 

\ TEMP_0! = PRIORITY!(JOB_NUMBER!) 

\ TEMP_0$ = SYS(CHR$(6!) ♦ CHR$(-13!) ♦ CHR$(JOB_NUMEER!) 

♦ CHR$(255!) ♦ CHR$(TEMP_0!)) 

UNLESS ((TEMP_0! = -1!) 

OR (JOB_NUMBER! = OUR_JOB_NUMBER!)) 

\ NEXT JOB_NUMBER! 

I 

I SUSPEND OURSELVES. 

I RESUME EVERYONE TO THEIR INITIAL VALUES. 


5999 RETURN 

! 

I BACK TO MAINLINE CODE. 


9999 GOTO 32700 

! 

! Prevent fall through errors. 


0000! 


Local Subroutines 


50001 


RED LIMIT EXCEEDED 


0100! 


SEND A MESSAGE TO OPSER 


501C MESSAGE? = "Rec limit exceeded on " ♦ DSK$ ♦ FO. > PEL 
\ GOSUB 1C1C0 

! SEND A MESSAGE (VIA OPSER). 

5020 PRIORITY! (INDEX!) = -1! 

FOR INDEX! = 1! TO I-IAXCNT! 

\ TERMlNAL_SPEEr!(INDEX!) = 0! 

FOR INDEX! = 1! TO CNT_KB! 

\ JOB_NUMBER! r 3! 

! 

! INITIALIZE THE PRIORITY ARRAY. 

I INITIALIZE THE TERMINAL SPEED ARRAY. 

I START AT JOB 3 (ASSUMING JOB 1 IS ERRCPY AND JOB 2 IS OPSER), 


10110 


\ 

\ 


IF LF.N( MESSAGE?) <= 19! 

THEN TEMP_0$ = SYS(CHR$(6!) ♦ CHR$(22!) ♦ CHR$(-1!) 

♦ CHR$(0!) ♦ "OPSER" ♦ SP NULL_10$ 

♦ CHR$(LEN(MESSAGE$) ♦ l!) ♦ MESSAGE?) 
ELSE TEMP_0? = SYS(CHR?(6!) ♦ CHR?(22!) ♦ CHR?(-1!) 

♦ CHR?(0!) ♦ "OPSER" ♦ SP ♦ NULL_10? 

♦ CHR?(255!) ♦ LEFT(MESSAGE?, 19!)) 
MESSAGE? = RIGHT(MESSAGE?, 20!) 

GOTO 10110 


!X0102A 


!X0102A 


SEND THE DATA TO 'OPSER'. 


0199 RETURN 


5030 TEMF_0! = PF.EK( JOBTEL! > (JOB_NUMBFR! • ?!)) 

\ GOTC 5040 

IF TEMP_0! = 0! 

' GOTC 5C50 

IF TEMP_0! = -1! 

\ PRIORITY!(JOB.NUMEER!) = PEEK(TEMP_0! ♦ 28!) AND 255! 

\ TEMP_0? = SYS(CHR?(6!) - CHR?(-13!) ♦ CHR?(JOB_NUMBER!) 

♦ CHR?(255!) CHR$(-128!)) 

UfJLESS (JOB_NUMBER! = OUR_JOB_NUMBER!) 

! 

I GET THE ADDRESS OF THE JOB DATA BLOCK FOR THE JOB. 

I SKIP THE JOB IF IT DOES NOT EXIST (0). 

! QUIT IF WE ARE AT THE EUD OF THE JOB TABLE (-1). 

I SAVE THE PRIORITY OF THE JOB. 

! SUSPEND THE JOB. 


! BACK TO MAINLINE CODE. 

19000! 

I Error Handler 

19004 IF ERR = 4! 

THEN IF ERL = 10110! 

THEN SLEEP 1! 

\ RESUME 10110 

! NO ROOM FOR USER ON DEVICE WHILE TALKING TO OPSER, 

19011 IF ERR = 11! 

THEN RESUME 32700 


5040 JOB_NUMBER! = JOB_NUMBER! ♦ 1! 

*\ GOTO 5030 

! 

I BUMP THE JOB NUMBER. 

5050 TEMP_0! = PEEK(DEVPTR! ♦ DEVOKB!) 

\ FOR INDEX! = l! TO CNT_KB! 

\ TEMP_1! = PEEK(PEEK(TEMP_0! ♦ (INDEX! • 2!)) ♦ 2%) 

\ JOB_NUMBER! r TEMP_1! AND 255! 

\ GOTO 5060 

IF ((JOB_NUMBER! = 0!) 

OR ((JOB_NUMBER! AND l!) = 1!)) 

\ UNIT_NUMBER! = SWAP!(TEMP_1!) AND 255! 

\ TEMP_0? = SYS(CHR?(6!) ♦ CHR?(-4!) ♦ CHR?(UNIT_NUMBER!) 

♦ CHR?(19!)) 

\ TEMP_0? = SYS(CHR?(6!) ♦ CHR?(16!) ♦ CHR?(0!) 

♦ CHR?(UNIT_NUMBER!)) 

\ TERMINAL_SPEED!(UNIT_NUMBER!) = (ASCII(MID(TEMP_0?, 14%, 1%)) 

OR SWAP!(ASCII(MID(TEMP_0?, 16!, 1!)))) 

\ TEMP_0? = SYS(CHR?(6!) ♦ CHR?(16!) ♦ CHR?(0!) 

♦ CHR?(UN1T_NUMBER!) ♦ NULL_9? !X0102A 

f CHR?(1!) f CHR?(0!) ♦ CHR?(1!)) 


! End of file on device. 

19032 IF ERR = 32! 

THEN IF ERL = 10110! 

THEN SLEEP 1! 

\ RESUME 10110 

! NO BUFFER SPACE AVAILABLE WHILE TALKING TO OPSER. 

19999 ONERROR GOTO 0 

! Give up. 

32700! 

! Completion Routines 

32710 CLOSE #1! 

! Close all channels. 

32767 END 
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USING 

VAX COMMAND 
PROCEDURES 

(or. 

Your File is 
My Command) 

By Bob Meyer 


Greetings, again. VAX and/or MACRO fans ... 

Being just about the laziest person on the planet, I 
recently discovered the joys of writing command files on the 
VAX. Wow! The command files under DCL are really some¬ 
thing. For those of you who thought command files looked 
like this: 

MAC FILE = FILE 
TKB FILE = FILE 

UT SEND KBXX: OH. MACRO PERSON. YOUR TASK- 
BUILD IS DONE . . . 

you're in for a treat. Some of it's many features are: 

String symbol definition 
Numeric symbols 
I/O to and from the terminal 
If-Then statements 
I/O to and from disk files 
Parameter substitution 
Build in lexical functions 
Gotos and labels 

and lots more that I haven't even learned yet. 

The first use I had for writing command files was a 
simple list of assembly and link instructions for a small 
program: 

MAC BOB 
LINK BOB 
RUN BOB 
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RSTS/E INTERNALS MANUAL 


The RSTS community has been clamoring for years for a book that details the inner workings of RSTS/E. 
Well, clamor no more. Michael Mayfield of Northwest Digital Software, and M Systems, the publisher of The 
RSTS Professional and The DEC Professional Magazines, have teamed up to produce the RSTS/E Monitor Inter¬ 
nals Manual. 


This manual describes the internal workings and data structures of the RSTS/E monitor. It also notes dif¬ 
ferences in the internal structures between version 7.1 and earlier versions of the monitor. Future updates will in¬ 
clude changes for new versions of the monitor. 

Information is available for all levels of users: 


• Gain a basic understanding of the workings of the 
monitor for optimizing system performance. 

• Information on disk structures allows recovery of 
data from corrupted disk packs. 


Chapter 3 contains information on writing and in¬ 
stalling a custom device driver. It describes the entry 
points and information the driver must provide to the 
monitor as well as the subroutines and macros the 
monitor provides for the driver. 


• Special uses of runtime systems and resident 
libraries allow complex applications to be 
developed without degrading system performance. 

• Write your own custom device drivers for th^ 
“foreign” device you need to add 
couldn’t. 

CONTENTS: 


Chapter 1 d _ 

monitor that are rlfTaent on 
directory structure, disk alio 
age Library (SIL) formats, boo 
block mapping. 



Id h} 

]lude' 

IbPSs, Save Im- 
Fap formats and bad 


Chapter 2 describes the tables used within the 
monitor to control system resources and provide pro¬ 
gram services. These tables provide job, memory, file 
and device control, as well as program services such 
as interjob communication. 


Chapte r 4^o nt^^ in wwation that enhances in- 
for maiio ji^l^^y qAi#^^by Digital on writing 
^usfnp^^nVbranes and runtime systems. It con- 
Aent®e^mainlv M^non-standard uses of resident 
l»ran ^^ ^||i^|.^^T^|ystems to increase system per- 

^A^endix A provides six quick reference foldout 
charts: 

• The directory structure. 

• The monitor tables. 

• Fixed memory locations and common data 
structures. 

• Monitor subroutines. 

• Device driver entry points. 

• Device driver macros. 



Appendix B provides examples of the peek se¬ 
quences required to access most of the monitor 
tables. It also contains an example program that uses 
many of the monitor tables to display a job and open 
files status. 


Appendix C provides an example device driver. 


Appendix D provides an example runtime system 
that doubles as a menu system for restricting 
specified users to a menu of options. 


$9500 


SEND ORDERS TO: M SYSTEMS, INC., BOX 361, FORT WASHINGTON, PA 19034-0361 



Soon I learned that the same command file could be 
used for other assemblies as well, simply by replacing the 
file names with a parameter symbol: (the dollar signs in the 
command files are required, and seem to help DCL deter¬ 
mine data from commands) 

$ MAC pr 
$ LINK pr 
$ RUN pr 

Where PI is the first parameter I type after activating 
the command file: (assuming the cmd file is named 
•ASM.COM) 

©ASM BOB 

DCL will then replace all occurrences of PI' with the 
string BOB’ as it executes the file. Up to eight parameters 
may be specified, separated by spaces. Using single quotes 
around a string specify that the string should be substituted 
with something else; in the case of PI thru P8, the strings 
are replaced with parameters from the user’s command line 
activating the command file. An example of substitution 
would be: 

$INQUIRE FILE "Enter file to assemble" 

$MAC ’FILE' 

$L1NK 'FILE' 

$RUN 'FILE' 

When this command file is executed. DCL will prompt 
the user with the string specified in the INQUIRE command, 
and take input from the terminai (actually, from SYS$1N- 
PUT). That input will be assigned to the symbol FILE': 

©ASM 

Enter file to assemble: BOB 
$ MAC BOB 
$ LINK BOB 
$ RUN BOB 

We can avoid seeing all this on the screen by adding the 
line: 

$SET NO VERIFY 

to the command file. (This is often used in LOGIN.COM) Com¬ 
ments can be easily inserted in command files: 

$ ! 

$ ! command file to assemble & link programs 
$ ! 

$ SET NO VERIFY 
$ INQUIRE FILE File' 

$ MACRO FILE 
$ LINK FILE 
$ EXIT 

The manuals recommend typing out commands in full, 
in an effort to make them more readabie. 


Several string operators are avaiiable; for example: 

$ IF PI .EQS. "" THEN GOTO GET—INPUT 
$ FILE: ='PI' 

$ GOTO DOIT 
$ GET—INPUT: 

$ INQUIRE FILE File' 

$ DOIT: 

$ MACRO FILE 
$ LINK FILE 
$ EXIT 

In this case, if parameter 1 (PI) was not specified, the 
command processor will transfer control to the line follow¬ 
ing the label GETINPUT:. If. however, a string was supplied 
when invoking the command file, the symbol 'FILE' will be 
assigned the string, and the command file will branch 
around the INQUIRE statement and begin the assembly and 
link process. 

Some other string operators are: 

.GES. String greater than or equal to 

.GTS. Greater than 

.LES. Less than or equal to 

.LTS. Less than 

.NES. Not equal to 

Several math operators are also at your disposal: 

.EQ. Equal to 

.GE. Greater than or equal to 
.GT. Greater than 
.LE. Less than or equal to 
.LT. Less than 
.NE. Not equal 

Also the logicals: .OR., .AND., .NOT. and faithful 

As an example of the arithmetic operators, let's assume 
we need to execute a program, a predetermined number of 
times: 

$ COUNT = 0 
$ RUN: 

$ RUN DOODAH.EXE 
$ COUNT=COUNT+1 
$ IF COUNT .GE. 5 THEN GOTO EXIT 
$ GOTO RUN 
$ EXIT: 

$ EXIT 

String symbols can be used like RSTS CCL's on a user- 
defined level. For example, the RSTS user migrating’ to VAX 
might add something to his/her L0G1N.COM file (which gets 
executed every time you log in) like this: 

$ SY: = SHOW SYSTEM 

The ': = ’ is a string equate; whenever the string SY' is 
typed to DCL, it is replaced with SHOW SYSTEM’ and the 
user gets the VMS equivlant of a RSTS systat. 
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Another inter¬ 
esting feature is the 
abiiity to perform 
I/O to and from 
disk files. Note the 
following command 
file: 


Some other examples of practical use of the command 
language were pointed out to me by my comrade Bernie 
Velivis, system manager of Squibb's Molecular Modeling 
Graphics Lab in Princeton. NJ. Some of these include: 

TE* CO: = = $SYS$SYSTEM:TECO.EXE/VT/HOLD 

The ••• (I can’t 
spell asterisk...) is 
similar to the (I 
CAN spell dash) in 
RSTS’s CCL struc¬ 
ture: it acts as an 
?abbreviation point 
in the command 
string, allowing the 
user to type TE, 

TEC. or TECO to in¬ 
voke TECO. The •$• 
before SYS$SYS- 
TEM: tells VMS to 
execute the image 
‘TECO.EXE’ and 
pass to it the par¬ 
ameters VVT/ 

HOLD’ as well as 
any parameters the 
user might have 
typed (such as a file 
name to edit). 


-FINAR- 

The (mly electronic 
spreadsheet that’s 
powerful, versatile 
and easy to use. 


the symbol ‘REC’. Then we write the symbol to the terminal 
(SYS$OUTPUT), and loop. When we hit eof on the input file, 
we take the error path specified in the read statement 
(/END = DONE) and control is transferred to the label DONE:. 
We then close the input file, display a message saying we’ve 

reached end of file, 
and exit. (Reminds 
me of the good ol’ 
days of BASIC 
PLUS . . .) 

The following 
command file gives 
an example of 
writing a file from 
DCL. This com¬ 
mand file is ex¬ 
ecuted by 

LGICMD.COM (the 
command file in 
SYS$MANAGER: 
that is executed for 
every user who 
logs in) to track 
user logins by time 
and terminal. 


With FINAR it's easy to prepare com¬ 
plex budgets, forecasts, financial 
statements, cash-flow projections and 
more. But that's only the beginning. 
FINAR can perform sophisticated 
tasks that far surpass any of the 
“calcs" capabilities. In fact, in every 
situation where FINAR has been com¬ 
pared to the "calcs", FINAR has been 
chosen. 

FINAR IS POWERFUL. 

FINAR is a real business system, ver¬ 
satile enough to meet the needs of the 
largest corporations and smaller firms 
too. FINAR's capabilities include ex¬ 
tensive mathematical functions; 
graphic output; interfaces with other 
systems; flexible report format; work¬ 
sheet definition and control directives. 




$ OPEN 
INPUT PI’ 

$ READ: 

$ READ 
INPUT 
REC/END 
= DONE 
$ WRITE 
SYS$OUT 
PUT REC 
$ GOTO READ 
$ DONE: 

$ CLOSE 
INPUT 
$ WRITE 

SYS$OUTPUT ’[End of file]” 
$ EXIT 


First we open the file specified ( PI ’) when calling the 
file. Each time we encounter the READ statement, we get 
one line from the input file. The input record is assigned to 


FINAR IS EASY TO LEARN. 

In just two days one can learn all that 
is needed to perform the most com¬ 
plex financial analyses with FINAR. 
Commands are in English—not “com¬ 
puterese"—and simple prompts let 
one know what information the system 
requires to compute the answer to a 
question. 

FINAR IS EASY TO USE. 

All you need is a DEC PDP-11 with 
RSTS or a VAX-11 and FINAR to plan 
calmly for whatever the future has in 
store. FINAR is available for as little as 
$4500. For a demonstration of 
FINAR’s unlimited technical capabili¬ 
ties and ease of operation, call: 

Whiter Fleming (713) 664-1172. 


JAMES B. HOTZE & CO. 


6101 Southwest Freeway, Suite 406 
Houston. Texas 77057 
(713) 664-1172 


$OPEN/ 

WRITE OUT 
SYS$ 

MANAGER: 
LOGINS.LIS 
$WRITE OUT 
“”F$LOGICAL 
(”SYS$ 
LOGIN”)’ 
SUCCESS¬ 
FULLY 
LOGGED 
IN INTO •- 
$’F$L0GICAL 
(”«”)’ AT 
•’F$TIME()’” 
$CLOSE OUT 
$EXIT: 

$EXIT 


CIRCLE SI ON READER CARD 


The OPEN/ 
WRITE statement 
will create a new 
file if the specified 
file does not exist 
or append to a file 
if it does. 

The ’-’ at the end of line 2 is used as a line continuation 
marker (which is helpful when your in verbose mode). The 
lexical functions used in the previous example, 
"F$logical( ”TT”)” and ”F$time() ”, are used to return the cur¬ 
rent system time and terminal device name. Lexical func¬ 
tions available are: 
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FUNCTION 

ACTION 

F$CVSI(Bit-position,width,integ) 

Signed value extracted from 
the specified integer, 
converted to an ASCII literal. 

F$CVUI(Bit-position,width,integ) 

Unsigned value extracted from 
the specified integer, 
converted to an ASCII literal. 

F$DIRECTORY() 

Current default directory. 

F$EXTRACT(offset,length,string) 

substing starting at 'offset* 
of length 'length'. 

F$LENGTH(string) 

Length of specified string. 

F$L0CATE(substring, string) 

Returns the offset of the 
substring within string 
indicated; or, the length 
of the string in the substring 
is not found. 

F$L0GICAL(logical-name) 

Returns the logical translation 
of a logical name. 

F$MESSAGE(code) 

Message text associated with 
the specified status code. 

Useful for displaying error 
messages. 

F$M0DE() 

One of the character strings 
INTERACTIVE or BATCH. 

F$PR0CESS 

Current process name string. 

F$TIME( ) 

Current date and time of day 
in the format: 
dd-mmm-yyy hh:mm:ss.cc. 

F$USER() 

Current uic ([g,m] 

F$VERIFY() 

A numeric value of 1 if 
verification is set on; a 
numeric value of 0 if 
verification is set off. ^ 


Look for the new . . . 

^^professional 

. . . August 1983 
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RSTS SOFTWARE 



RESOURCE MANAGEMENT and 
CHARGEBACK SYSTEM 

DP Managers use ARSAP for: 

• User and Project Accounting 
Monitoring Usage and Trends 
Controlling Performance 
Billing for Services 

Also Available for VAX and RSX Si;stems 




s 


GEJAC P.O. Box 188 

mcofiPotiATeo Riverdale, MD 20737 U S A. (301) 864-3700 

VAX, RSX, and RSTS are trademarks of the Digital Equipment Corp. 


CIRCLE t70 ON READER CARD 


































ACCTNG.B2S 

SYSTEM-WIDE RESOURCE ACCOUNTING SYSTEM FOR RSTS/E 

By Philip Hunt. OL.LF.B.P.. 6400 E. Broad St., Columbus. OH 43213 


DESCRIPTION 

ACCTNG is a system program that will remove the RSTS 
imposed restrictions of the amount of CPU/KCT and other 
resource time that may be used under any one account 
without ‘overflowing' the internal RSTS accounting struc¬ 
tures. ACCTNG will keep track of all system usage in an in¬ 
dexed data file that is updated nightly with all usage that 
day. Since this file is kept in BP2 'double-precision' numbers, 
data will not be lost. 

USAGE 

ACCTNG is run from any terminal; it will find its own 
data file, and initialize one if one doesn't currently exist. It 
creates its data file in the account in which ACCTNG resides. 

Example: 

Ready 

RUN $ACCTNG 

ACCTNG —VI.02 RSTS V7.2-04 N OLFBP 11/70 

A)dd. L)ist. C)lear or E)xit: 

At this point there are four options: 

1) Add current statistics to file. This is usually done 
every night but may be done more often without damage. 

2) List all or any account in a money-type format (see 
enclosed samples) that shows all usage FOR THE YEAR for 
CPU.KCT.Device Time. Connect-time. It also shows other 
items of interest. An account that is deleted, will be marked 
with a (D)' next to the PPN and no updates are then done 
until recreated. This brings along an explanation of the last 
two columns, UPDATE shows how many times the account 
was found during nightly update and LUD shows the last 
time the account was found. You may direct the report out¬ 
put to any file or device. If selective mode is requested, a 
project.programmer number will be requested by ACCTNG. 

3) Clear (Priviledged) — This CLEARS the YEARLY FILE 
after forcing a List operation: it will save the current file 
under ACCTNG.OLD and create a new ACCTNG.SYS file. 

4) Exit the program. 


LIST Exaaple: 


A)dd, Dist, Olear 

or E)xit: L 





Output to <KB:> ? 






Selective <N> ? YES 





Project, Programmer 

? 1,2 





PPN 

CPU-TIME 

KCTS 

DEVICE 

CONNECT 

UPDATE LUD 

[001,002] 

8:02.5 

560il8 

0 

1 

2 10-Jan-83 

Project, Programmer 

? 1,10 





PPN 

CPU-TIME 

KCTS 

DEVICE 

CONNECT 

UPDATE LUD 

[001,010] 

5:33.6 

596 6 6 

it6 

1 :42 

2 10-Jan-83 

Project, Progreimmer 

? “Z 






Ready 

ADD (Nightly update) Example: 


RUN $ACCTNG 

ACCTNG - VI.02 RSTS V7.2-0H N OLFBP 11/70 

A)dd, Dist, C}lear or E)xlt: A 
Accounts Updated 

Updated Accounts: 306 

New Accounts: 0 


I have also included a sample report showing a complete system dump of all 
accounts. 

DO NOT FORGET, THIS PROGRAM MUST BE COMPILED IN DOUBLE PRECISION BP2. 
Compilation Example: 

BP2 

OLD ACCTNG.B2S 
BUILD/IND 
COM/DOUBLE/OBJ 
TKB ^ACCTNG 

PIP [PPN]ACCTNG.TSK<232>=ACCTNG.TSK 

WHERE: [PPN] IS WHERE YOU WOULD LIKE ACCTNG TO RESIDE 


!. & 

! PROGRAM: ACCTNG & 

! AUTHOR : PJH OLFBP A 

! VERSION: V07 A 

! EDIT : 07 A 

! DATE : 072981 A 

! ^ 

! THIS PROGRAM WILL DO THREE THINGS: A 

! 1) A)DD VALUES FROM SYSTEM TABLES TO ACCTNG A 

! FILE IN DOUBLE PRECISION A 

f 2) DIST ONE OR ALL VALUES FROM MY DATA FILE A 

! TO OUTPUT SPECIFIED A 

! 3) OLEAR THE DATA FILE (DOES A LIST OF ALL A 

! FIRST) A 

I«»#«»N0TE: this PROGRAM MUST BE COMPILED WITH********' A 

! DOUBLE PRECISION. 4 


1000 DIM FlPt(30j) \ A 

ON ERROR GOTO 19000 A 

1005 MAP (PPNREC) A 

PPN$ = 6X, A 

CPU, A 

KCT, A 

CNNCT, A 

DEVICE, A 

LAST.UPD, A 

UPDT, A 

LUD$ =9* \ A 

A 
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MAP (PPNREC) 

DTREC$ = 6%, 
INIT.DATE$=9J, 
INIT.TIME$=8t, 
UPD.DATE$=9*, 
UPD.TIME$=8J, 
SYS.ACCT, 
ACCT.CNT 


1010 


VERSION! 

EDTI 

INSTALLATION! 
R. PACKAGE! 
CHANGE 

PACKAGE.PROJJ 
PACKAGE.PROG! 
PACKAGE.FSPEC! 


PACKAGE.FSPEC! 


. "in 
= " 02 " 

= ERT!(0!) 

= SyS(CHR!(12!)) 

R.PACKAGE! TO FIP> 

= FIP!(6!) 

= FIP!(5!) 

= "[ "•••NUM1!( PACKAGE. PROJ!)-*- 
","♦NUM1!(PACKAGE.PROG!)♦ 

njn 

= "_"+CHR!(FIP!(23!))+ 
CHR!(FIP!(2i<!)) + 
NUM1!(FIP!(25!))-*-";"+ 
PACKAGE.FSPEC! 

IF FIP!(26!) AND l! 


\ 

\ 

\ 

\ I 
\ I 

\ IDO THIS SO WE... 

\ ICAN FIND WHERE WE 
IWE CAME FROM 

\ I 


PRINT "ACCTNG - V";VERSION!;;EDT!,INSTALLATION! \ 
PRINT \ 

OPEN "KB:" AS FILE 2! \ 

OPEN PACKAGE.FSPEC!+"ACCTNG.SYS" FOR INPUT AS FILE #1!, 
ORGANIZATION INDEXED FIXED, 

ACCESS MODIFY, ALLOW NONE, 

MAP PPNREC, 

PRIMARY KEY PPN! NODUPLICATES \ 

CLOSE #1 


DEVICE.TEMP=256.»FIP!(20!)fFIP!(19!) \ 

CNNCT.TEMP =256.•FIP!(16!)^FIP!(15!) \ 

KCT.TEMP =256.»FIP!(18!)+FIP!(17!) \ 

IHIGH IS LOW ORDER 10 BITS OF FIP(21,22) 

KCT.HIGH =FIP!(21!)+(256.*(FIP!(22!) AND 3!)) \ 
KCT.TEMP =KCT.TEMP+(65536.•KCT.HIGH) \ 

KCT=KCT+KCT.TEMP \ 

CPU=CPU+CPU.TEMP \ 

DEVICE=DEVICE+DEVICE.TEMP \ 

CNNCT sCNNCT+CNNCT.TEMP \ 

UPDT=UPDT+1 \ 

LAST.UPD=-1! \ 

LUD! = DATE!(0!) \ 

UPDATE #1! \ 

NEXT 

2500 PRINT "Accounts Updated" \ 

GET #1!, KEY#0! EQ "000000" \ 

UPD.DATE!=DATE!(0!) \ 

UPD.TIME!=TIME!(0!) \ 

SYS.ACCT = SYSTEM.ACCT \ 

ACCT.CNT = FILE.ACCT+NEWADD! \ 

CUR.ACCT = ACCT.CNT \ 

UPDATE #1! \ 

PRINT \ 

PRINT "Updated Accounts: ";UPDTD! ^ \ 

PRINT "New Accounts: ";NEWADD! ' \ 

RETURN 


1011 OPEN PACKAGE.FSPEC!-^"ACCTNG.SYS" AS FILE #1!, 


ORGANIZATION INDEXED FIXED, 

ACCESS MODIFY, ALLOW NONE, 

MAP PPNREC, 

PRIMARY KEY PPN! NODUPLICATES \ 

GET #1!, KEY #0! EQ "000000" \ 

F.DATE! = IN IT. DATE!-^"" \ 

F.TIME! = INIT.TIME!+"" \ 

U.DATE! = UPD.DATE!+"" \ 

U.TIME! = UPD.TIME!+"" \ 

CUR.ACCTr ACCT.CNT \ 

SYSTEM.ACCTS = SYS.ACCT \ 

GOTO 1020 

1012 INO DATE REC, BAD FORMAT, SO REINIT IT 

GOSUB 4010 \ 

GOTO 1011 


3000 ILIST FROM CURRENT FILE 

ZERO.MSG!="" \ 

PR0G!=0! \ 

PROJ!=0! \ 

PPN!=STRING!(0!,6!) \ 

IF CLEAR.FLAG! THEN 

ZERO.MSG!=" and INITIALIZATION" \ 

SELECTIVE! = "N" 

3005 LINPUT "Output to <KB:> ";OUTF! \ 

OUTP!="_KB:" IF OUTP!="" N 

30K GOTO 3017 IF CLEAR.FLAG! ' 

INPUT "Selective ' 

SF.LKCTIVF!="N" \ 

SELECTIVE!="Y" IF LFFT(ANS!,1!)="Y" 


1013 INO FILE FOUND, INIT ONLY 

GOSUB 4010 \ 

PRINT 

1020 PRINT "A)dd, L)ist, C)lear or E}xit: "; V 

INPUT #2!, CMD! \ 

CMD! = LEFT(CVT!!(CMD!,-1!),1!) \ 

CMD! = INSTRd! ,"ALCZt",CMD!) \ 

GOTO 1020 IF CMD! = 0! ' 

ON CMD! GOSUB 2000,3000,4000,4010,32700,5000,6000 
GOTO 32700, 



Aimouncing MPR 

A VERSATILE MACRO LANGUAGE 
UTILITY FOR RSTS/E 



2000 I ADD TO CURRENT FILE 

! (FIRST, CLEAR ALL UPDATE FLAGS) 

RESET.FLAG!=-1! 

FILE.ACCT = 0! 

FIND tfl!, KEY#0! GT "000000" 

WHILE -1! 

GET #1! 

FILE.ACCT=FILE.ACCTf1 
LAST.UPD=0! 

2002 UPDATE #l! 

NEXT 

2005 INDX! = 0! 

SYSTEM.ACCTrO! 

WHILE -1! 

1NDX!=INDX!+1! 

INFO!=SYS(CHR!(6!)+CHR!(l4)f 

CHR!(INDX!)+CHR!(SWAP!(INDX!))-^ 

CHR!(RESET.FLAG!)♦CHR!(RESET.FLAG!)♦ 


CHR$(0!)+CHR!(0!)+CHR!(1!)-.- & 

STRING!(0!,21!))\ 

SYSTEM.ACCT=SYSTEM.ACCT+1 \ 

CHANGE INFO! TO FIP! \ 

PR0J!=FIP!(8!) \ 

PROG!=FIP!(7!) \ 

GOSUB 10000 

2010 FIND #1!, KEY #0! EQ PPN! \ 

UPDTD!=UPDTD!4.1! 

2015 GOTO 2050 

2020 KCT=0 \ 

CPUsO \ 

CNNCTsO \ 

DEVICE=0 \ 

LAST.UPDzO \ 

UPDT=0 \ 

NEWADD!=NEWADD!fl! \ 

PUT #1! 


Flexible enough for OEM’s and End-Users 


Functional highlights include: 

• Customized code generation. 

• Nestable macros and “INCLUDE” statements 
with arguments. 

• Algebraic expression evaluation. 

• Control file generation. 

• Extensive debugging mode. 

• Easy to use syntax. 

• Complete documentation with sample macros. 

Benefits: 

• Reduce software maintenance costs. 

• Increase software portability. 

• Simplify operations and training. 

• Compatible with your existing programming 
standards. 


Interested in significantly improving 
programming productivity? 

CALL OR WRITE FOR DETAILED INFORMATION 

I-Noah Dixon- 1 

I — Star Plan Data Processing, Inc_ I 

2040 W. Wisconsin Avenue - Suite 354 
Miiwaukee, Wisconsin 53233 - (414) 933-0800 


2050 GET #1!, KEY#0! EQ PPN! 

2060 CPU.TEMP=256.»FIP!(14!)+FIP!(13!) ^ 

CPU.HIGH=(FIP!(22!) AND 252!)/4! ^ 

IHIGH IS HIGH 6 BITS OF FIP(21,22) 

CPU. TEMP= CPU. TEMP-*- (CPU. HIGH«65536.) \ 



• Soon to be released for RSX and VMS 


CIRCLE 178 ON READER CARD 
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3015 IF SELECTIVE$="Y" THEN 

INPUT "Project, Prograffiiner "; FROJt, PR0G%^ 
GOSUB 10000 \ 

GOTO 3015 IF PPN$="000000" \ 

TOTLINEItrOt \ 

FIND #11, KEY #0t EO PPN$ 

3017 OPEN OUTP$ FOR OUTPUT AS FILE 3t 

30?0 GET #1 \ 

GOTO 3020 IF PPN$="000000" \ 

GOSUB 11000 \ 

IF SELECTIVE$="Y" THEN 3015 ELSE 3020 

3030 I EOF ON LIST FROM aEAR/INIT FUNCTION 

RETURN 

4000 ICLEAR CURRENT FILE 

INPUT "Are you sure <N0> ";AANS$ \ 

\ GOTO U005 IF AANS$r"YES" \ 

\ PRINT "CLEAR aborted!!" 

4005 CLEAR.FLAG* = -1J \ 

GOSUB 3000 


& 

& 

& 

& 

& 

& 

& 


PRINT #3t, "Acctng Dump";ZERO.MSG" of Snapshot File on "; & 

DATE$(0J);" at ";TIME$(OJ);TAB(70t);"Page ";PGEJ \ 4 

PRINT #3t \ 4 

PRINT § 3 %, "File Created: ";F.DATE$;" at ";F.TIME$,\ 4 

PRINT #3t, "File Accounts: ";CUR.ACCT \ 4 

PRINT #3*. "File Updated; ";U.DATE$;" at ";U.TIME$,\ 4 

PRINT #3t, "System Accounts: ";SYSTEM.ACCTS 4 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


PRINT #3* 
PRINT #3*, " 

PPN 

CPU-TIME 

\ 

KCTS ";\ 

PRINT #3*, " 
TOTLINE*=-1* 

DEVICE 

CONNECT UPDATE LUD"\ 

\ 


LCOUNTJ = 7* 
RETURN 



\ 



4 

4 

4 

4 

4 

4 


15000 ! TIME - HHHH;MM FROM TT (BEING MINUTES,NOT SECONDS 

TT=TT«60.\ !GET INTO SECONDS 

HOURS.FLAG%=-1?\ 

GOTO 16010 


4 

4 

4 

4 


16000 ! TIME- HHHH:MM:SS.S 

! RETURNS A STRING SS$ FROM TT 


4 

4 


16005 HOURS.FLAGJ=0J 


4 


4010 

PRINT "Initializing data file" 

\ 

4 


CLOSE #1* 

\ 

4 


kill package.fspec$^"ACCTNG.OLD" 

\ 

4 


goto 4012 


4 

4011 

!no file to kill 


4 


print "No old file to be killed, continuing" 

\ 

4 

\ 

goto 4012 


4 

4012 

NAME PACKAGE.FSPEC$-^"ACCTNG.SYS" AS 


4 


PACKAGE.FSPEC$^"ACCTNG.OLD" 

\ 

4 


PRINT "Old file: ";PACKAGE.FSPEC$+"ACCTNG.SYS" 


4 


♦ " named to "; PACKAGE. FSPEC$-.-"ACCTNG. OLD" \ 

4 


goto 4015 


4 

4013 

!no file to rename 


4 


PRINT "No current file, continuing" 

\ 

4 


goto 4015 


4 

4015 

OPEN PACKAGE.FSPEC$+"ACCTNG.SYS" FOR OUTPUT AS 

FILE #1*, 

4 


ORGANIZATION INDEXED FIXED, 


4 


FILESIZE 250*, 


4 


ACCESS MODIFY, ALLOW NONE, 


4 


MAP PPNREC, 


4 


PRIMARY KEY PPN$ NODUPLICATES 

\ 

4 


PPN$="000000" 

\ 

4 


1NIT.DATE$= DATE$(0*) 

\ 

4 


INIT.TIME$= TIME$(0*) 

\ 

4 


UPD.DATE* = "NONE" 

\ 

4 


UPD.TIME* = "NONE" 

\ 

4 


SYS.ACCT = 0* 

\ 

4 


ACCT.CNT = 0* 

\ 

4 


PUT #1* 

\ 

4 


PRINT "File Cleared!!!" 

\ 

4 


RETURN 


4 

5000 

!RESERVED 


4 


RETURN 


4 

6000 

! RESERVED 


4 


RETURN 


4 

10000 

!CIVEN PR0J*,PR0G*, WILL GENERATE PPN$ 6 CHARS 

LONG 

4 


PP1$ = NUM1$(PR0J*) 

\ 

4 


PP2$ = NUMIKPROG*) 

\ 

4 


PP1$ s RIGHT("000",LEN(PP1$)4.1*) + PP 1 $ 

\ 

4 


PP2$ = RIGHT("000",LEN(PP2$) + 1*)-.-PP2$ 

\ 

4 


PPN$ = PP1$ ♦ PP2$ 

\ 

4 


RETURN 


4 


16010 SS$="" 4 

\ TTJrOJ 4 

\ TT1|=TT/3600. 4 

\ IF TTIJOOJ THEN 4 

TT=TT-3600.»TT1t 4 

\ GOSUB 160110 4 

\ SS$=SS$+";" 4 

! CLEAR STRING TO BE RETURNED AND INITIALIZE 4 

! T1J= # OF HOURS - SUBTRACT FROM TOTAL IF NON-ZERO 4 

16020 TT1J=TT/601l 4 

\ IF (TT1J OR TTDOOt THEN 4 

TT=TT-60t«TT1J 4 

\ GOSUB 160110 4 

\ RETURN IF HOURS.FLAG? !0NLY WANT HH:MM, SO EXIT 4 

\ SS$rSS$+":" 4 

! NOW T1J= # OF MINUTES - SUBTRACT FROM TOTAL IF NON-ZERO AND 4 

! TACK ON TO STRING 4 

16030 TT1X=TT 4 

! PREPARE TO GET SECONDS.TENTHS OF SEC. 4 

160110 TT$=NUM$(TT1X^TTt«100j) 4 

\ SS$=SS$+MID(TT$,2j+TTJ,LEN(TT$)-2»-TT|) 4 

\ TTX=1J 4 

! TACK THIS PART ONTO THE STRING 4 

16050 RETURN 4 

4 

19000 !ERROR PROCESSING 4 

IF ERR=5% AND ERL=1010 THEN 4 

PRINT "7ACCTNG- Data file not found-INITIALIZING" \ 4 

RESUME 1013 & 

19010 IF ERR=155% AND ERL=3015 THEN 4 

PRINT "lAccount not found" \ 4 

RESUME 3015 4 

19020 IF (ERRrIIJ OR ERR=155*) AND 4 

(ERL=3020) THEN 4 

PRINT #3*, CHR$(12t); \ 4 

CLOSE #3t \ 4 

RESUME 3030 IF CLEAR.FLAGJ \ 4 

RESUME 32700 4 

19025 IF (ERR=155J) AND (ERL=1011) THEN 4 

PRINT "JNo Date record found" \ 4 

RESUME 1012 4 

19030 IF ERL=3017 THEN 4 

PRINT "?Bad output specification" \ 4 

RESUME 3000 4 


11000 


!DISPLAY A LINE FROM FILE 

GOSUB 12000 \ 

PRINT #3*. "["•►LEFT(PPN$,3*)^", "♦RIGHT(PPN$,4t)+"]"; 
PRINT tjt,” (D)"; IF LAST.UPD>=0* \ 

TT=CPU/10 \ 

TTTS=INT((TT-1NT(TT))»1C*) v 

GOSUB 16000 


SS$=SS$^". "♦CHReCHej-^TTTS) \ 
SS$=FHSP$(SS$,16») \ 
PRINT #3%, TAB( 13J) ;SS$; v 
SS$ = fnjM1$(KCT) \ 
SS$ = FNSP$(SS$,12|) \ 
PRINT #3*. TAB( 33*) ;SS$; \ 
TT=DEVICE \ 
GOSUB 15000 \ 
SS$=FNSP$(SS$,9*) \ 
PRINT #3*. TAB(mX);SS$; \ 
TT=CNNCT \ 
GOSUB 15000 \ 
SS$=FNSP$(SS$,91) \ 
PRINT #3*. TAB(53*) ;SS$; \ 
PRINT #3*, TAB(65*);FNSP$(NUMU(UPDT),iit); \ 
PRINT #3*. " ";LUD$; \ 
PRINT #3* \ 
PRINT #3* IF SELECTIVE$="Y" \ 
LCOUNT*=LCOUHT*>1* \ 
TOTLINEJrO* IF LCOUNTf>57* \ 
RETURN 


4 

190110 

IF ERR=5X AND ERL=2005 THEN 

4 

4 

4 


RESUME 2500 

4 

4 

19050 

IF ERR=155* AND ERL=2010 THEN 

4 

4 

4 


RESUME 2020 

4 

4 

19 O 6 O 

IF (ERR=155* OR ERR=11*) AND ERL=2000 THEN 

4 

4 

4 


RESUME 2005 

4 

4 

4 

19070 

if erl = ilC10 then resume 4011 !no old file to kill-ok 

4 

4 

4 

190 80 

if erl=4012 then resume 4013 !no current file-ok 

4 

4 

19980 

IF ERR=11* THEN 

4 

& 

4 


RESUME 32700 

4 

4 

19990 

PRINT "7ACCTNG - ";ERT|(ERR);" (";NUM1$(ERL);")-FATAL"\ 

4 

4 

4 


RESUME 32700 

4 

4 

32700 

PRINT 

4 

4 

4 


CLOSE #1*,#2* 

4 

4 

32710 

DEF FNSP$(AR$,P*) = SPACE$(P*-LEN(AR$))♦AR$ 

4 

4 

32767 

END 

4 


4 

4 

4 


12000 !DISPLAY TITLE 

RETURN IF TOTLINES \ 

GOTO 12010 IF SELECTIVE$="Y" \ 

PGEK = PGE*+1t \ 

PRINT #3*, CHR$(12t); S 


4 

4 

4 

4 

4 


Acctng Duof. of .''.napshot File on 07-Jan-83 at 05:11 PM 


Page 1 


File Created: lU-Jan-SP at 10:02 AM 
File Updated: 06-Jan-83 at 08:54 PM 


File Accounts: 373 
System Accounts: 305 
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PPN 


CPU-TIME 

KCTS 

DEVICE 

CONNECT 

UPDATE LUD 

[000,001] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,000] 


10:03.0 

151976 

47 

1:39 

7C 

06-Jan-83 

[001,001] 


48:42:52.7 

3584947 

28 

2:57 

70 

06-Jan-83 

[001,002] 


73:09:04.5 

38855575 

2401 :14 

1621:49 

70 

06-Jan-83 

[001,003] 


1:08:02.1 

742939 

30 

9:28 

70 

06-Jan-83 

[001,00U] 


1:35:35.0 

713129 

2:03 

10:14 

70 

06-Jan-J3 

[001,005] 


21:59:59.1 

15523246 

183:18 

253:54 

70 

06-Jan-83 

[001,006] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,007] 


6:22.2 

24932 

5 

2:37 

70 

06-Jan-83 

[001,008] 


14.6 

1286 

0 

19 

70 

06-Jan-83 

[001,009] 


13:27.9 

64593 

1 :45 

2:27 

70 

06-Jan-83 

[001,010] 


65:13:36.4 

41108124 

254:09 

1498:10 

70 

06-Jan-83 

[001,011] 


1:06.5 

8862 

0 

24 

70 

06-Jan-83 

[001,012] 


0.9 

45 

0 

0 

70 

06-Jan-P3 

[001,013] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,0in] 


0.4 

9 

0 

0 

70 

06-Jan-83 

[001,015] 


45.5 

6956 

8 

4 

70 

06-Jan-83 

[001,016] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,017] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,018] 


21 :17.9 

287039 

49 

3:10 

70 

06-Jan-83 

[001,019] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,020] 


7.5 

1555 

0 

5 

70 

06-Jan-83 

[001,021] 


75:37:35.1 

42391838 

256:27 

827:23 

70 

06-Jan-83 

[001,022] 


1.6 

149 

0 

0 

70 

06-Jan-83 

[001,023] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001 ,02il] 


4:56.7 

67142 

57 

1:06 

70 

06-Jan-83 

[001,025] 


33:20:00.7 

18459087 

176:39 

798:41 

69 

06-Jan-83 

[001 ,026] 


12:09:08.8 

5554523 

54:30 

454:50 

49 

06-Jan-83 

[001,030] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001 ,031 ] 


6:13.0 

77003 

29 

1:31 

47 

06-Jan-83 

[001,032] 


41 .2 

2863 

0 

28 

30 

06-Jan-83 

[001,033] 

(D) 

0.0 

0 

0 

0 

17 

05-Sep-82 

[001,035] 


57:03.6 

791168 

2:03 

52:33 

31 

06-Jan-83 

[001,038] 


20:08:44.6 

13882483 

93:07 

118:38 

70 

06-Jan-83 

[001,0i»0] 


4:41:15.1 

3424433 

21 :12 

119:29 

31 

06-Jan-83 

[001,041 ] 

(D) 

0.0 

0 

0 

0 

17 

02-Jun-82 

[001,045] 


1 :16:18.6 

816248 

7:55 

60:24 

31 

06-Jan-83 

[001,050] 


66:01:24.7 

41539474 

201:12 

1610:15 

70 

06-Jan-83 

[001,051] 


13:04:47.1 

6859340 

9:44 

233:22 

67 

06-Jan-83 

[001,052] 


1:12:50.1 

946693 

1:41 

37:06 

70 

06-Jan-83 

[001,055] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[001,056] 


0.0 

0 

0 

0 

70 

06-Jan-83 

[oai , 060 ] 


7 :16.2 

36739 

5 

6:17 

70 

06-Jan-83 

[001,061] 

(D) 

0.0 

0 

0 

0 

17 

07-JU1-82 

[001,062] 


5:18.3 

57181 

6 

1:01 

48 

06-Jan-83 

[001,063] 


37:29.3 

548774 

1:48 

5:49 

31 

06-Jan-83 

[001,064] 


26 :23.0 

296994 

1:29 

7:32 

31 

06-Jan-83 

[001,065] 


2:43:41.5 

1261838 

2:59 

13:42 

11 

06-Jan-83 

[001,070] 


10:47:47.5 

9083616 

69:04 

136:44 

30 

06-Jan-83 

[001,076] 


30.8 

2074 

0 

18 

70 

06-Jan-83 

[001,077] 


14:22.5 

230149 

1 

2:56 

52 

06-Jan-83 


* 


so TH/>Tb WHAT 
AM ERROR LOS- 
LOOK-S LIKE? 



EMiLy DAHLbTROM 



C-CALC 


• C-CALC Is the high-performance electronic spreadsheet 
written in the extremely CPU-efficient ‘C’ language-- 
deslgned with speed, efficiency, and transportability in 
mind. 

• C-CALC is extremely user-friendly, with an ON-LINE HELP 
feature, comprehensive documentation, and built in train¬ 
ing procedure. C-CALC Is a ‘menu’ oriented system with 
easy to use single level commands. 

• DIGITEC Software Design, Incorporated offers on-going 
product maintenance and extensive customei support 
services. 


PRO 350 version now available! 


C-CALC - the high-performance 
3-dimensional spreadsheet you won’t 
outgrow. 


C-CALC’s features include: 

• Comprehensive worksheet consolidation 

• Built-in training and on-line HELP 

• Menu-oriented for ease of use 

• Variable width columns 

• Fully transportable data 

• Supports most types of terminals 

• Dynamic sorting capability 

• User-defined procedures and functions 

• Generates boardroom quality reports 

• Written In “C” (No compiler needed) 

• Multi-level training classes available 

• On-going customer support and service 


Available for RSTS, VMS, RSX, VAX/UNIX, 
IAS,and P/OS (for DEC PRO 350) systems. 


* Registered trademark of Digital Equipment Corporation 
** Registered trademark of Bell Laboratories 


DSD CORPORATION 

12620 120th Avenue N.E., Suite 201 
Kirkland, WA 98033 (206) 821-7507 


(Formerly DIGITEC Software Design. Inc.) 
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RSTS/E MULTITERMINAL 
INPUT/OUTPUT SERVICE 

By Michael H. Koplitz, Computer Integrated Management Systems 

The information in this document is believed to be accurate and correct, however 
the author assumes no liability for any errors which may appear in this document. 


The multiterminal input/output service allows for the 
development of software which controls many terminals 
from one input/output channel. This feature is useful for 
the development of user interfaces, data entry programs, 
and other RSTS/E system programs. Several terminals can 
be doing the same task but only ONE job is in use. The effi¬ 
ciency of multiterminal service can be seen in computer 
shops where there is a high volume of data input. 

SYSGEN OPTION 

To be able to use multiterminal input/output service, 
the system manager must specify during the SYSGEN 
dialogue that multiterminal service is desired. The SYSGEN 
question and long description are: 

An optional feature of the RSTS/E terminal service 
allows one Job to interact with several terminals 
through special forms of the Record I/O GET and PUT 
statements. This feature is useful in applications where 
the same basic function is performed on several ter¬ 
minals and a separate Job for each is undesirable or at 
least inefficient. Would you like to include this feature 
(YES OR NO)? 

Multi-terminal service? *Y* 

Answer Y or linefeed to this question. 

THE MASTER TERMINAL 

To use multiterminal input/output service a master 
terminal must be selected. This master terminal will be 
opened on one of the twelve RSTS/E channels. The OSC 
should not be used as the master terminal. This can in¬ 
terfere with OPSER, if OPSER if running. 

OPEN “KB:" AS FILE ^1% 

This OPEN statement associates the current keyboard with 
channel one. Any channel, one through twelve can be used. 
Also a keyboard other than the current keyboard, can be 
used for the master terminal. 

OPEN "KB10:" AS FILE *2Ph 

This OPEN statement associates keyboard ten with channel 
two. Keyboard ten becomes the master keyboard. 

Keyboards which are to be included in multiterminal in¬ 
put/output services must be assigned to the Job. 

OUTPUT FOR MULTITERMINAL SERVICES 

The PUT or PRINT statements are used to transmit 
data to the terminals under the multiterminal service. The 
PUT statement is used in combination with the FIELD state¬ 
ment to transmit data to the multiterminal service. 


PUT »5%, RECORD 32767%-h 1%-i-T%, COUNT N% 
The RECORD option must be 32767% -h 1 % to indicate to 
RSTS/E that the output is to be for multiterminal services. 
The variable T% in the RECORD count is a specific keyboard 
unit number to transmit to. Therefore, all of the terminals as¬ 
signed to the Job can be transmitted to by using RECORD 
clause 32767% 4-1 %, or transmission can be to a single ter¬ 
minal by using 32767% -i-1 % -i- T%. The COUNT option is used 
to transmit a specific amount of the buffer to the terminal. 

The error. ?NOT A VALID DEVICE (ERR = 6). can occur if 
the terminal being addressed is not the master keyboard 
nor one of the slave terminals. A slave terminal is one which 
is assigned to the Job. and is not indicated in the OPEN state¬ 
ment of the master terminal. Another possible error is, ?l/0 
CHANNEL NOT OPEN (ERR = 9). which indicates that the ter¬ 
minal in question is not assigned to the Job. 

The PRINT or PRINT-USING statement can be used with 
multiterminal input/output services. The RECORD clause is 
used to designate multiterminal input/output services. 

PRINT ^5%. RECORD 32767% 1 % -t- T%.A$ 

PRINT ^5%. RECORD 32767% + T% -h 1 % -h T%, USING 
"!!!". A$; 

The FIELD statement is NOT used if the PRINT or PRINT¬ 
USING statements are used. 

To transmit binary data add 4096% to the RECORD 
clause. 

INPUT FROM MULTITERMINAL SERVICES 

Input from multiterminal services can be requested 
from a specific keyboard or from any of the terminals that 
might have some data available. The type of input is 
specified in the RECORD clause of the GET statement. 

To get input from a specific keyboard the following 
statement is used. 

GET *^5%. RECORD 32767% -h 1 % + T% 

The variable T% is the unit number of the terminal 
from which data is to be accepted. A FIELD statement is 
then used so that the program can read the data. The 
variable RECOUNT contains the length of the buffer. 

FIELD ^5%, RECOUNT AS A$ 

The information from keyboard T% is contained in variable 
A$. If there is not any data available, the error, ?DATA ER¬ 
ROR ON DEVICE (ERR = 13). is generated. The system WILL 
NOT stall (KB state) on the GET statement. 

To get data from any terminal on the multiterminal ser¬ 
vice the following GET statement is used. 

GET #5%. RECORD 32767% + 1 % -i-16384% + S% 
Where S% has several meanings: 


Page 66 


RSTS PROFESSIONAL. June 1983 




Value: 0% 

Meaning: 

The GET statement waits until input is available from any 
of the terminals on the service. The program stalls until data 
is received. After data is received the error, ?DATA ERROR 
ON DEVICE (ERR = 13). may be generated under some cir¬ 
cumstances (race 
condition with tC). 

A race condition 
can occur when 
two jobs are ac¬ 
cessing the same 
data. 

Value: 1 to 255 
Meaning: 

The GET state¬ 
ment waits up to 
S% seconds for in¬ 
put from any ter¬ 
minal. If no data is 
received in S% se¬ 
cond the error, 

?DATA ERROR ON 
DEVICE. is 

generated. 

Value: 8192% 

Meaning: 

The GET state¬ 
ment immediately 
generates the er¬ 
ror. ?DATA ERROR 
ON DEVICE, if no 
data is available. 

A tZ entered at 
either the master 
or slave terminal 
generates the er¬ 
ror. ?END OF FILE 
ON DEVICE. 

When the GET 
statement is ex¬ 
ecuted and data is 
available, the first 
character of the 
buffer is the unit 
number of the ter¬ 
minal where the 
data was gener¬ 
ated. To convert 
this value into a 
unit number use the ASCII function. 

LIMIT.BAS — AN EXAMPLE OF MULTITERMINAL 
SERVICES 

LIMIT.BAS allows the system manager to prevent 
specific terminals from logging into the system. The pro¬ 
gram uses multiterminal input/output services to ac¬ 


complish this task. All terminals on the system can be 
"limited.” LIMIT.BAS has special features built In to allow a 
user to free up the terminal if the LIMIT password Is known 
to him. 

LIMIT.BAS has two time parameters. The first is the 
start time, when shouid LIMIT.BAS start limiting the ter¬ 
minals. Second is 
the stop time; 
when should 
LIMIT.BAS stop 
limiting the ter¬ 
minals. LIMIT.BAS 
will sleep until the 
start time is 
reached. It will 
send a message to 
KBO: indicating its 
start and stop 
times. 

LIMIT.BAS al¬ 
lows for a pass¬ 
word to be estab¬ 
lished which when 
entered on a ter¬ 
minal will cause 
LIMIT.BAS to free 
up that terminal 
for operator use. 
The password MUST 
be six characters in 
length. The pass¬ 
word feature need 
not be used. A<CR> 
entered to the pass¬ 
word question will 
set up this situation. 

A message for 
the session is 
prompted for. 
LIMIT.BAS will 
display the input¬ 
ted message each 
time a user enters 
something which is 
not the password 
on a "limited” ter¬ 
minal. A switch ex¬ 
ists to this mes¬ 
sage. This switch 
“/S” allows for the 
entering of individ¬ 
ual terminals that 
are to be limited. If 
the “/S” is not used ALL terminals that are not in use at the 
moment will be limited. 

It is HIGHLY recommended that if the time set for 
LIMIT.BAS to start is in the future, that the "/S” switch NOT 
BE USED, if LIMIT.BAS is to start in the future it will detach. 
If LIMIT.BAS is to start immediately the prompt LIM > will 
appear. 



Software Tools for RSTS/E 


Evans Griffiths & Hart, Inc., a pioneer in the development 
of RSTS and the winner of an ICP million dollar award for 
KDSS and TAM, offers packages that save you time and 
improve your productivity. 

• KDSS, a complete multi-terminal key-to-disk data entry subsystem. 
Eliminates the need for keypunching and stand-alone key-to-disk sys¬ 
tems. (Also available for VAX/VMS and RSX-11M.) 

• TAM , an efficient multi-terminal screen-handling facility that provides 
complete support for the development of transaction-processing appli¬ 
cations on a wide variety of terminals. (Also available for VAXA^MS and 
RSX-llM.) 

• FSORT3, a very fast sort/merge package for RMS and non-RMS files. 
More economical of disk space than SORT-11 and much faster. 

• SELECT, a convenient, very fast package for scanning files to extract 
records that meet user-specified selection criteria. Use as part of an 
online inquiry system and as a front end for building file indices and 
generating reports. SELECT and FSORT3 can save hours in nightly batch 
runs. 

• BSC/DV, a RSTS/E device driver for the DEC DVl 1 synchronous mul¬ 
tiplexer. Suitable for handling a wide variety of bisynchronous protocols. 
(Also available for VAXA/MS.) 

• COLINK, a convenient, efficient link between two RSTS/E systems 
using DMC11 s or DMR11 s without the overhead of DECnet. Supports 
file transfers, virtual terminals, and across-the-link task communication. 

• DIALUP, a comprehensive, efficient link between RSTS/E and other 
systems using asynchronous terminal lines. Supports file transfers, vir¬ 
tual terminals, auto-dialing, and the use of command files and macros. 
The premier RSTS/E package for remote support and reliable. CPU- 
efficient file transfers. 

DEC, DECnet. RSTS, RSX, VAX, and VMS are trademarks of Digital Equipment Corporation. 

Call or write for complete descriptions of features and benefits. 


Evans Griffiths & Hart, Inc. 

55 Waltham Street, Lexington, MA 02173 

(617)861-0670 
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Note that there is a ten second time limit on entering a 
command to LIMIT.BAS. The time limit was set up to insure 
that any terminals that are "limited” are serviced in some 
reasonable amount of time. If the program completely 
stalled at the LIM> prompt, then terminals might not be 
serviced for very long periods of time. 

LIMIT.BAS will first attempt to open the master ter¬ 
minal. LIMIT.BAS uses KB40: as the master. This can be ad¬ 
justed by changing line 07. J% contains the master terminal 
number. If the master terminal is not available an error is 
generated and LIMIT.BAS will ask for a different terminal to 
be the master terminal. 

There might be some terminals which are not assigned 
to LIMIT.BAS because they are in use. LIMIT.BAS does con¬ 
tain some commands which will force the terminal to 
become assigned to it. There are commands which cause 
LIMIT.BAS to free up a terminal. Also assigning terminals 


which are not 

in use can be done. The commands are 

entered at the LIM> prompt. The commands are: 

Command 

Meaning 

ASSIGN 

Assigns a terminal to LIMIT. 

CHANGE 

Changes a LIMIT feature. 

DEASSIGN 

Deassigns a terminal from LIMIT. 

DETACH 

Detaches the Job. Attaches to the Job if 
other commands are desired. 

END 

Ends LIMIT. 

FREE 

Lists the free terminals on the system, 
those not controlled by LIMIT. 

HELP 

Displays HELP message. 

LIST 

Lists all assigned terminals. 

SEIZE 

Siezes a terminal which is in use. 

VIEW 

Lists all of LIMIT'S parameters. 

It is best to detach LIMIT.BAS; it runs more efficiently! 


REFERENCES 

RSTS/E Programming Manual 

RSTS/E System Generation Manual (forSYSGEN dialogue) 


60 

GOTO 63 IF LEN(B$) = 5% 


\ 

PRINT "?Time must be in the form XX:XX" 


\ 

GOTO 50 

IIF NULL STOP, ELSE CHECK 
! TO SEE IF VALID. 

63 

INPUT "Password for session";P9$ 


\ 

PRINT "JNo password for session" 

IF P9$ = "" 


\ 

P9$ = "“" IF P9$ = "" 


\ 

GOTO 70 IF P9$ = "-" 


\ 

PRINT "^Password must be 6 characters"; 
" in length" 

IF LEN(P9$) <> 6 


\ 

GOTO 63 



IF P9$ = "" OR LEN(P9$) <> 6J 

IENTER PASSWORD 

FOR SESSION 

70 

PRINT "Message for the session"; 


\ 

INPUT LINE C$ 


\ 

C$ r CVT$$(C$,Jit) 


\ 

CU = CVT$$(C$,32t UJ) 


\ 

C$ = LEFT(C$,INSTR(1*,C$,"/")-1J) 

IF INSTRdJ ,C$,"/") <> OJ 


\ 

C$ = C$ + CHR$(10) + CHR$(13) 


\ 


IMESSAGE TO BE SENT 

71 

IF A$ > TIME$(0) THEN GOSUB 1500 

!TIME TO START NOT YET DETACH 

72 

IF A$ > TIME$(0) THEN SLEEP 30J 


\ 

L9t = U 


\ 

GOTO 72 

ITIME TO START NOT HERE YET 

75 

X$ = SYS(CHR$(6J) + CHR$(9*) + CHR$(0)) 

IGET KB NUMBER 

77 

TJ = (ASCII(MID(X$,2,1))/2) 

ITJ HAS KB NUMBER 

78 

X$ = SYS(CHR$(6t) + CHR$(-5J) + CHR$(0) 
+ "jSystem will be limited" 

" until: " 

1- B$ + CHR$(13*) 

♦ CHR${10)) 

ISEND MESSAGE TO KBO: 

79 

GOTO 7000 

IF RIGHT(C1$, 

INSTRdJ ,C1$,"/") ♦ M) 

= "S" 

AND INSTRdt,C1$,"/") <>0 


80 

FOR X = 9 TO JJ-IJ 

lALL LEGAL TERMINALS 

85 

IF TJ = X THEN B(X) = OJ 


\ 

GOTO 120 

ISKIP CURRENT TERMINAL 

90 

X$ = SYS(CHR$(6$) + CHR$d0%) 

+ STRING$(20^,0J) 

+ "KB" + CHR$(X) 

+ CHR$(255J)) 

! ASSIGN THE KB 

100 

X$ = SYS(CHR$(6J) + CHR$(-51l) 

♦ CHR$(X) 

♦ "tSystem will be " 

+ "limited until: " 

+ B$ + CHR$d3%) 

+ CHR$d0)) 

ISEND SYSTEM LIMITED PHRASE 

110 

A(X) = X 

IFLAG TERMINAL AS ASSIGNED 


01 




120 

NEXT X 

1 CONTINUE ASSIGNING TERMINALS 

\ 

!• 

THIS PROGRAM ALLOWS SYSTEM MANAGER TO PREVENT CERTAIN TERMINALS 




\ 

!• 

FROM LOGGING INTO THE SYSTEM. 


125 

GOTO 217 IF L9% = 

IIN DETACHED CONDITION 

\ 

!• 

THIS PROGRAM WAS WRITTEN BY M H KOPLITZ 


130 

WAIT 10 

IWAIT 10 SECONDS 

\ 

!• 

COMPUTER INTEGRATED MANAGEMENT SYSTEMS 




\ 

!• 



140 

PRINT "LIM>"; 

1READY FOR LIMIT COMMAND INPUT 

\ 







\ 

!• 



150 

INPUT D$ 

IGET THE COMMAND 

\ 

!• 

REVISION #1 (TO VERSION 2) M H KOPLITZ 

OCT 2, 1981 




\ 

!• 



155 

D$ = CVT$$(D$,32t ♦ 4J ♦ 2J + 8*) 

1 CONVERT ENTRY TO USABLE DATA 

\ 

!• 

PURPOSE: DO NOT LET ANY TIME BE 

ENTERED EXCEPT 




\ 

!• 

XX:XX. 


160 

IF D$ = "END" THEN 32766 

IIF END GOTO END 

\ 

!••< 



170 

IF D$ = "HELP" THEN GOSUB 1000 

IGOSUB HELP PARAGRAPH 

05 


DIM A(60J),B(60J) 


180 

IF D$ = "DEASSIGN" THEN GOSUB 1100 

1DEASSIGN SECTION 

07 


J% = 56X 

INUMBER OF TERMINALS 

190 

IF D$ = "ASSIGN" THEN GOSUB 1200 

I ASSIGN SECTION 

08 


M$ = "KB" + NUMUCJJ) + ":" 

1MASTER KB NUMBER 

195 

IF D$ = "SEIZE" THEN GOSUB 8000 

ISEIZE A TERMINAL IN USE 

10 


PRINT "LIMIT V 2.1 


197 

IF D$ = "CHANGE" THEN GOSUB 9000 

1CHANGE LIMIT PARAMETERS 



" LIMIT systems use" 









200 

IF D$ = "LIST" THEN GOSUB 1300 

ILIST ALL ASSIGNED DEVICES 

15 


ON ERROR GOTO 31000 

lERROR ROUTINE 








210 

IF D$ = "FREE" THEN GOSUB 1400 

ILIST ALL UNASSIGNED DEVICES 

16 


X$ = SYS(CHR$(6*) ♦ CHR$(-7t)) 

ISET “C TRAP 








215 

IF D$ = "DETACH" THEN GOSUB 1500 

1DETACH OUT 

17 


OPEN M$ AS FILE #12t 

lOPEN THE MASTER FILE FOR 







MULTI-TERMINAL SERVICES 

217 

GOSUB 2000 

ITIME CHECK 

20 


PRINT 

1 PRINT HEADER 








218 

IF D$ = "VIEW" THEN GOSUB 9500 

IVIEW CERTAIN DATA 

30 


INPUT "Time to start <N0W>";A$ 

lASK FOR TIME START 








219 

GOSUB 5000 

ISEE IF ANYONE TALKED TO US 

40 


IF A$ = "" THEN A$ = CVT$$(TIME$(0),-1J) 





\ 


GOTO 50 IF LEN(A$) = 511 


220 

X$ = SYS(CHR$(6J) ♦ CHR$(9%) ♦ CHR$(0)) 

IGET KB NUMBER 

\ 


PRINT "?Time must be in the form XX:XX" 





\ 


GOTO 30 

IIF NULL USE CURRENT TIME 

223 

IF ASCII(MID(X$,2J,1J)) > 80J 





1 ELSE CHECK LEGALITY. 


THEN SLEEP ^t 






\ 

GOTO 217 

1DON'T ASK QUESTION IF DET. 

50 


INPUT "Time to end";B$ 





\ 


IF B$ = "" THEN 32767 

lASK FOR TIME STOP 

230 

GOTO 140 

IBACK TO LIM QUESTION 
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1000 
\ !• 

\ !• PRINT HELP MESSAGES 

\ !• 


1005 

PRINT 


IHELP MESSAGE 

1010 

PRINT 

"ASSIGN";TAB(30); 

"Assign a KB to Limit" 


1015 

PRINT 

"CHANGE";TAB(30); 

"Change a Limit feature" 


1020 

PRINT 

"DEASSIGN";TAB(30); 

"Deassign a KB from Limit" 


1030 

PRINT 

"DETACH";TAB(30); 

"Detach the job" 


10UO 

PRINT 

"END";TAB(30); 

"End Limit now" 


1050 

PRINT 

"FREE";TAB(30); 

"List free terminals" 


1060 

PRINT 

"HELP";TAB(30); 

"This help message" 


1070 

PRINT 

"LIST";TAB(30); 

"List all assigned KB" 


1075 

PRINT 

"SE1ZE";TAB(30); 

"Seize a terminal which is 

Inuse" 

1077 

PRINT 

"VIEW";TAB(30); 

"View limit parameters" 


1080 

RETURN 

IFINSHED 

1100 1 





\ !• 

\ !• DEASSIGN A KB: 

\ !• 

1105 INPUT "Deassign KB:";NJ IDEASSIGN A KB; 

1107 PRINT "t Console can not be affected 
"by limit" IF Nt = OJ 
\ GOTO 1105 IF N* = 0$ 

1110 X$ = SYS(CHR$(61{) ♦ CHR$(11J) 

+ STRIHG$(20* ,0t) 

"KB" ♦ CHR$(NJ) 1- CHR$(255t)) 

IDEASSIGN A DEVICE 

1115 X$ = SyS(CHR$(6J) + CHR$(-5*) ♦ CHR$(N*) 


♦ "tTerminal now available" 
CHR$(13f) ♦ CHR$(10)) 





ISEND SYSTEM LIMITED PHRASE 

1120 


A(NJ) = 0* 

IDELETE FROM ASSIGNED TO TABLE 

1130 


B(NJ) = NJ 

lADD TO UNASSIGNED TABLE 

1U0 


RETURN 

1FINISHED 

1200 




\ 

!• 



\ 

!• 

ASSIGN KB: 


\ 

\ 

!• 

!•< 



1203 


INPUT "Assign KB:";N% 

IWHICH KB 

120il 


PRINT "^Console can not be assigned" 




IF N< = OJ 


\ 


GOTO 1203 IF NJ = OJ 


1205 


IF A(N*) > 0 




THEN PRINT 




"^Device already assigned" 


\ 


GOTO 1250 

!ERROR MESSAGE 

1207 


X$ = SYS(CHR$(6^) + CHR$(9%) ♦ CHR$(0)) 


\ 


n = (ASCII(MID(X$,2,1))/2) 

ITS HAS KB NUMBER 

1208 


PRINT "^Current terminal can not be"; 




" assigned" IF TJ = N* 


\ 


GOTO 1250 IF TJ = Nt 

1CAN'T ASSIGN TERMINAL 




AT WHICH LIMIT IS CURRENTLY 
RUNNING 

1210 


X$ = SYS(CHR$(6J) + CHR$(10J) 




STRING$(20f ,0{) 

♦ "KB" ♦ CHR$(NJ) ♦ CHR$(255J)) 

1ASSIGN THE KB CODE 

1215 


X$ = SYS(CHR$(6J) ♦ CHR$(-5J) ♦ CHR$(NJ) 



♦ "^System will be limited" 

♦ " until: " 

B$ CHR$(13») ♦ CHR$(10)) 

ISEND SYSTEM LIMITED PHRASE 

1220 


A(NJ) = N% 

!PLACE TKB IN ASSIGNED TABLE 

1250 


RETURN 

IFINISHED 

1300 

!•* 



\ 

!• 



\ 

!• 

LIST ROUTINE 


\ 

\ 

!• 

!•< 



1310 


FOR X = 9 TO Jt 

ILOOP THRU KB: 

1320 


PRINT "KB";X;": "; IF A(X) > 0 

!PRINT IF ASSIGNED 

1330 


NEXT X 


1335 


PRINT 


13^0 


RETURN 

IFINISHED 

1H00 

!•< 



\ 

!• 



\ 

!• 

FREE ROUTINE 


\ 

\ 

!• 

!•' 



1410 


FOR X = 9 TO JJ 

ILOOP THRU KB: 

1420 


PRINT "KB";X;": "; IF A(X) = 0 

I PRINT IF UNASSIGNED 

1430 


NEXT X 


1435 


PRINT 


1440 


RETURN 

IFINISHED 

1500 

!•« 



\ 

!• 



\ 

!• 

DETACH THE LIMIT JOB 



\ !• 
! 


1510 


PRINT "Detaching." 

1 PRINT DETACHING ON KB 

1520 


X$ s SYS(CHR$(6S) * CHR$(7S)) 

ITHE DETACH CODE 

1530 


RETURN 


2000 




\ 

l» 



\ 

!• 

TIME CHECK 


\ 

!■ 




\ I 


2010 


IF B$ < TIMEKO) THEN 32766 

1TIME TO STOP 


2030 


RETURN 

IFINISHED 


5000 





\ 

!• 




\ 

I« 

MULTI-TERMINAL SERVICES 



\ 

\ 

!• 

!•< 




5010 


FIELD #12S, 7S AS Z9$ 



\ 


LSET Z9$ = "" 



5020 


GET #12S, 





RECORD 32767S ♦ IS ♦ 16384S ♦ 8192S 

ISEE IF ANYTHING OUT 

THERE 

5030 


IF MID(Z9$ ♦ "",2S,6S) = P9$ THEN 6000 

I INPUTTED PASSWORD 


5040 


PRINT #12S, RECORD 32767S IS 





+ ASCII(LEFT(Z9$ ♦ "",1S)), 

c$ 



5050 


GOTO 5010 

IRETURN IS DONE FROM 

ERROR R, 

5060 


RETURN 



6000 





\ 

!• 




\ 

!• 

PART OF MULTI-TERMINAL SERVICES, 



\ 

I» 

DEASSIGN TERMINAL 



\ 

!• 





\ I 


6010 


X$ = SYS(CHR$(6S) ♦ CHR$(11S) 




♦ STRING$(20S,0S) 

♦ "KB" ♦ LEFT(Z9$ "",1S) 

♦ CHR$(255S)) 

IDEASSIGN A DEVICE 

6015 


X$ = SYS(CHR$(6S) ♦ CHR$(-5S) 




♦ LEFT(Z9$ ♦ "",1S) 

♦ "STerminal is now available" 

♦ CHR$(13S) + CHR$(10)) 

ISEND SYSTEM LIMITED PHRASE 

6020 


A(NS) = OS 

IDELETE FROM ASSIGNED TO TABLE 

6030 


B(NS) = NS 

IADD TO UNASSIGNED TABLE 

6040 


GOTO 5010 


7000 

!•< 



\ 

!• 



\ 

!• 

SELECTED TERMINALS ONLY. 


\ 

\ 

!• 

!•< 



7010 


PRINT "Enter terminal numbers"; 




" (end with <cr>)" 


7020 


INPUT "KB number";NS 

1 INPUT TERMINAL inJMBER 

7030 


GOTO 125 IF NS = OS 

ITERMINATE IF ZERO 

7040 


X$ = SYS(CHR$(6S) ♦ CHR$(9S) CHR$(0)) 

IGET KB NUMBER 

7050 


TS = (ASCII(MID(X$,2,1))/2) 

ITS HAS KB NUMBER 

7060 


PRINT "SCurrent terminal can not be"; 




" assigned" IF NS = TS 


\ 


GOTO 7020 IF NS = TS 

1DON'T ASSIGN CURRENT TERMINAL 

7070 


GOSUB 1205 

IGOTO ASSIGN ROUTINE 

AND ASSIGN TERMINAL 

7080 


GOTO 7020 

IKEEP PROCESSING 

8000 

!•< 



\ 

I» 



\ 

!• 

SEIZE A TERMINAL 


\ 

\ 

!• 

!•< 



8010 


INPUT "Terminal to seize";NS 

1 INPUT THE TERMINAL NUMBER 

8020 


PRINT "SConsole can not be seized" 




IF NS = OS 


\ 


GOTO 8010 IF NS = OS 

1ERROR, CONSOLE TERMINAL 

8030 


PRINT "STerminal already limited" 




IF A(NS) <> OS 


\ 


GOTO 8010 IF A(NS) <> OS 

ITERMINAL ALREADY ASSIGNED 

8040 


X$ s SYS(CHR$(6S) ♦ CHR$(9S) ♦ CHR$(0)) 


\ 


TS s (ASCII(MID(X$,2,1))/2) 

ITS HAS KB NUMBER 

8042 


PRINT "SCurrent terminal can not "; 




"be assigned" IF TS = NS 


\ 


GOTO 8100 IF TS = XS 

1CAN'T ASSIGN TERMINAL 




AT WHICH LIMIT IS CURRENTLY 
RUNNING 

8044 


X$ = SYS(CHR$(6S) ♦ CHR$(-4S) 




♦ CHR$(NS) ♦ CHR$(3S)) 

FOR X s 1 TO 3 


\ 



IFORCE 3 *C TO TERMINAL 

8050 


X$ = SyS(CHR$(6S) ♦ CHR$(-4S) 




♦ CHR$(NS) ♦ "BYEF" 

♦ CHR$(13) ♦ CHR$(10)) 


\ 



1FORCE THE BYEF 

8060 


U9S = OS 

UNIT COUNTER FOR ATTEMPTS 




TO SEIZE TERMINAL 

8070 


X$ : SYS(CHR$(6S) CHRSdOS) 




♦ STRING$(20S,0S) 

♦ "KB" ♦ CHR$(NS) 

♦ CHR$(255S)) 

lASSIGN THE KB CODE 

8080 


X$ = SYS(CHR$(6S) ♦ CHR$(-5S) 




CHR$(NS) 

♦ "SSystem will be" 

♦ " limited until; " 

♦ B$ ♦ CHR$(13S) ♦ CHR$(10)) 

ISEND SYSTEM LIMITED PHRASE 

8090 


A(NS) = NS 

I PLACE TKB IN ASSIGNED TABLE 

8100 


RETURN 

IFUNCTION FINISHED 
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9000 




\ 

I* 



\ 

!• 

CHANGE PARAMETER ROUTINES 


\ 

\ 

|« 



9010 


INPUT "Time to 3top";Q1$ 

I NEW TIME TO STOP 

9020 


B$ = Q1$ IF Q1$ <> "" 

INULL MEANS NO CHANGE 

9030 


INPUT "Password change";Q1$ 

INEW PASSWORD 

9040 


GOTO 9050 IF Q1$ = "" 


\ 


PRINT "^Password must be 6 characters"; 




" long" IF LEN(Q1$) <> 6 


\ 


GOTO 9030 IF LEN(OU) <> 6 


\ 


P9$ = QU 


\ 



1 PASSWORD VERIFIED AND CHANGED 

9050 


INPUT "Message change";Q1$ 

INEW MESSAGE 

9060 


C$ = Q1$ IF QU <> "" 

INULL MEANS NO CHANGE 

9070 


RETURN 

IFUNCTION FINISHED 

9500 

!•* 



\ 

!• 



\ 

!• 

VIEW ROUTINE 


\ 

\ 

!• 

!•< 



9510 


PRINT "Time to stop: ";B$ 

I PRINT TIME TO STOP 

9520 


PRINT "Password is: ";P9$ 

!PRINT PASSWORD 

9530 


PRINT "Message is: ";C$ 

I PRINT MESSAGE 

9540 


RETURN 

IFUNCTION FINISHED 

31000 ! 



\ 

!• 



\ !• ERROR ROUTINE 

\ !• 

\ ... 


31005 

IF 

ERR 

= 28 THEN RESUME 32760 

rc TYPED 

31007 

\ 

IF 

ERR 

= 11 AND ERL > 130 

THEN RESUME 219 

rZ TYPED AND BEYOND 

LINE 140 IN CODE 

31010 

IF 

ERL 

= 17 THEN RESUME 31900 

IMASTER TERMINAL NOT AVAILABLE 

31100 

IF 

ERL 

= 90 THEN RESUME 120 

1DEASSIGN FAILED 

31110 

\ 

IF 

ERR 

= 15 THEN PRINT 

RESUME 217 

IKB WAIT EXHAUSTED 

31120 

\ 

IF 

ERL 

= 1210 

THEN PRINT "jDevice not"; 

" available" 

RESUME 1250 


31125 

IF 

ERL 

= 5020 THEN RESUME 5060 

ITERMINAL SERVICE ERROR 

31130 

IF 

ERL 

= 8070 THEN RESUME 31800 

ISEIZE DID NOT WORK 

31140 

IF 

ERL 

= 31930 THEN RESUME 31910 

1ERROR ON NEW MASTER TERMINAL 

31190 

ON 

ERROR GOTO 0 


31200 

GOTO 32767 

IUNKNOWN ERROR-TERMINATE 

31800 

\ 

!• 





\ I» SIEZE TERMINAL ERROR SECTION 

\ !• 

\ {••••••••••••••••••••••••••••••I 


31810 

U9J = U9J ♦ 1 

1INCREMENT COUNTER 

31820 

SLEEP M 

ISLEEP ONE SECOND 

31830 

GOTO 8070 IF U9> < 10J 

ITRY 10 TIMES TO GET IT 

31840 

PRINT "tTerminal can not be seized"; 

" - try again" 


31850 

GOTO 8100 

IGOTO RETURN STATEMENT 

31900 



\ 

!• 


\ 

!• MASTER TERMINAL NOT AVAILABLE 


\ 

\ 

!• 


31910 

PRINT "?Master terminal not available" 


31920 

PRINT "Input another terminal to be"; 

" the master"; 


\ 

INPUT K% 


\ 

K$ = "KB" ♦ NUM1$(K<) ♦ ":" 

IGET NEW MASTER TERMINAL 
NUMBER 

31930 

OPEN K$ AS FILE #12$ 

IOPEN THE MASTER TERMINAL 

31940 

GOTO 20 

1RETURN PROCESSING 

32760 



\ 

!• 


\ 

!• EOJ 


\ 

\ 

I* 


32766 

X$ = SYS(CHR$(6$) + CHR$(12$)) 

IDEASSIGN ALL DEVICES 

32767 

X$ = SYS(CHR$(6$) ♦ CHR$(-5$) CHR$(X) 



+ " JLIMIT going offline—SYSTEM back 
+ "to normal" 

♦ CHR$(13) ♦ CHR$(10$)) 

IF A(X) <> 0 FOR X = 9 TO J$ 


\ 

X$ = SYS(CHR$(6$) + CHR$(-5$) 

+ CHR$(0$) 

♦ "$LIMIT going offline—SYSTEM back" 

♦ " to normal" 

+ CHR$(13) ♦ CHR$(10t)) 


\ 

X$ = SYS(CHR$(6$) + CHR$(9$) 

♦ CHR$(0t)) 


\ 

XU = SYS(CHR$(6$) ♦ CHR$(8$) 

+ CHR$(PEEK(518)/2) 

+ SPACE$(23) + CHR$(0$) + CHR$(255$)) 
IF ASCII(MID(X$,2,1)) > 80$ 


\ 

END 

I ALL DONE AND OVER, 


DETERMINE WHETHER 

TO KILL THE JOB OFF 

OR NOT THEN DO IF NECESSARY 


f 


A 

MENU 

MANAGEMENT 

PROGRAM 

By R. David Broom 
Omega Optical 
13515 N. Stemmons 
Dallas. TX 75234 
(214) 241-4141 


INTRODUCTION 

Every site provides some way of informing its person¬ 
nel what options are available to them. This is usually ac¬ 
complished through a menu display. Once the list of options 
is displayed, the operator keys In a numeric entry or a 
mnemonic name for the option desired and the menu pro¬ 
gram chains to the program associated with that option. 

OBJECTIVES and GOALS 

"MENU" is a menu management program where 
mnemonic names are associated with the option desired. In 
the development of "MENU" four goals were set: 

1) Lower the number of keystrokes entered by an 
operator. 

2) Lower the number of characters outputted to a 
terminal. 

3) "Hide" the fact that the operator Is executing a 
system program like PIP. DTR. ATPK. et cetera. 

4) Allow the operators to do as much as possible on one 
line of entry. That is. pass user-selected parameters. 

Implementing these four goals will give the appearance 
that the operator is doing more with less work. For ex¬ 
ample. if we have a program that cancels a customer’s 
order, then under this type of menu management program 
the operator keys in the following: 

ME CAN ACCOUNT.INVOICE 
where ME means menu 
CAN means cancel account number. Invoice 
number 

If we did not allow the passing of parameters, the oper¬ 
ator would have typed the same number of keystrokes, but 
not on the same line. He/she would also have waited for the 
menu display, and the display of the cancellation program. 

Some general goals where added: 

1) Provide the ability to page within a menu. 

2) Call one menu while in another menu. 

3) Provide operator security checks. 

4) Pass user parameters by CCL and chaining. 

5) Develop a menu that is easy to modify. 

6) Display options according to terminal type. 
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UNITRONIX 

represents digital 



r por n/23 ^ 

sxsTtws 

Mbyte 

memory, t 45 ,ps 
backup, trr^' 

%32.OO0 
aMB avau. 


SPECIAL 

LSl-11 MODULES, PERSONAL COMPITTERS 


TERMINALS 

VT100 LA12 
VT101 LA34 
VT102 LA50 
VT125 LA100 
VT131 LA120 


CPUs 

PDP 11/23, 

11 /44 & VAX 

INTERFACES 

MODEMS 


COMPLETE 
DATA SYSTEMS 

with standard 
and 

custom 

software 


VT, LA. LSI, PDP, VAX are trademarks 
of Digital Equipment Corporation 


WHY YOU SHOULD CALL UNITRONIX FIRST 


• Immediate Delivery from $6 mm Warehouse Inventory 

• Complete Equipment Service Capability 

• Excellent Pricing/Discount Structures 

In just over 6 years, Unitronix Corporation has emerged 
as a leading supplier of Digital Equipment Corporation 
(DEC) microcomputers, terminal products, printers, ac¬ 


cessories and supplies on both a domestic and interna¬ 
tional level. Our new, ultra-modern 20.000 sq. ft. facility 
in Somerville. New Jersey, houses executive offices, in- 
house programming, customer service, sales and mar¬ 
keting. component testing and complete warehouse 
facilities. 


O UNITRONIX 

r^noDr^oATiriM 


CORPORATION 

197 MeisterAve., Somerville, NJ 08876 
TELEX:833184 


AUTHORIZED 



TERMINALS DISTRIBUTOR 


CALL FOR LATEST PRICES 

(201) 231 -9400 


CIRCLE 25 ON READER CARD 




IMPLEMENTATION 

To accomplish some of these goals a formatted text file 
was developed. This text file contains the mnemonic names 
of options, their description, what action is to be performed, 
program name or CCL or command file or DTR procedure or 
menu file to use with the action, line number to chain to and 
what terminal type can access this option. This type of text 
fiie is easy to modify and maintain. Figure 1 is an exampie of 
such a text file and Figure 2 is the display associated with it. 

Security checks were implemented by using another ac¬ 
tion code: "O". The ways of doing a security check are in¬ 
finite. One way is to create an operator file where each 
operator has a unique ID, and flag what secure options an 
operator can access. This is currentiy the type of system we 
are using. 

Terminal type is checked because we have a mixture of 
VT52s and VTIOOs. Certain tasks were written to take ad¬ 
vantage of the VTIOOs dispiay options. 

An interesting method of implementing this menu 
system is to apply the feature patch 21.3.5 which modifies 
the RSX run time system to chain to ‘MENU". An articie 
with a related Idea appears in the December issue of RSTS 
PRO, "A User Written Keyboard Monitor," by Ken Harris. A 
few modifications have to be made to "MENU ” for this to 
work, such as the removal of the wait for entry. 

Another approach is the feature patch 10.12.4 to 
modify “LOGIN" to chain to a specific program and add a 
CCL for “MENU". This is the approach we took. The entire 
menu is aiways displayed when our operators first log-in. 
Once an operator is logged In there is no need to redisplay 
the menu unless he/she is unsure of the options. To enter an 
option without displaying the menu listing, the operator 
enters a CCL for menu foiiowed by an option, foilowed by 
parameters if they are allowed. 


CONCLUSION 

This type of menu system seems to work effectively. 
"MENU" accomplished our major goais and as a side benefit, 
operator training time has markediy decreased. 


APPENDIX 


Digital Equipment Corporation, "invoking a Menu Program 
RSX.RTS Feature Patch," RSTS/E V7.2 Maintenance 
Notebook. (June 1982), Seq 21.3.5. 

Digital Equipment Corporation. "Login Can Chain to a 
Specific Program - LOGiN Feature Patch." RSTS/E V7.2 
Maintenance Notebook. (June 1982), Seq 10.12.4. 

Harris, Ken. “A User Written Keyboard Monitor," RSTS Pro- 
fessionai, (December 1982), Vol. 4, Num. 6 


Customer Service Menu Selection ... 

1;ACCOUNT;A/R account inquiry;C;INQUIR.BAC;C 
;BYE;Log off the system;L;PYE/Y;0 
;CLEAR;Clear all temporary files;T;CLEAR.PIP;0 
;INQUIRY;General laboratory inquiry ;L;INQ;0 

;LIST;Listing of current transactions for an account;P;ACCOUNT-TRANS;0 
;MAIN;Main menu for Lab;S;$MAIN.MEN;0 

;NIGHT;Produce nightly reports;A;NIGHT.L0G=NIGHT.ATP/DET;0 


FIGURE 1 


I Customer Service Inquiry Menu Selection ... ! 
« I 
[ ACCOUNT - A/R account inquiry ] 
[ BYE - Log off the system ] 
[ CLEAR - Clear all temporary files ] 
[ INQUIRY - General laboratory inquiry by Job/Tray/Account ] 
[ LIST - Listing of current transactions for an account ] 
[MAIN - Main menu for Lab ] 
[ NIGHT - Produce nightly reports ] 


OPTION> 

FIGURE 2 


& 

PROGRAM: MENU.B2S 4 

VERSION: 1.1 4 

DATE: 03-NOV-82 4 

AUTHOR: R. David Broom 4 

SITE: Omega Optical, Dallas,Tx 4 

4 

. 

4 

COPYRIGHT 4 

4 

Copyright (C) 1982 by 4 

Omega Optical Inc. 4 

Dallas, Texas 4 

4 

This software is provided free of charge, and may be copied 4 
only with the inclusion of the author's name and this copyright 4 
notice. No title to or ownership of the software is hereby 4 

transferred. 4 

4 

The information in this software is subject to change without 4 
notice. Neither the author nor Omega Optical Inc. assumes any 4 
responsibility for the use or reliability of its software. 4 

4 


4 

<PR0GRAM DESCRIPTION> 4 

4 

Menu management program. 4 

4 

PURPOSE; to provide control and entry for multi- 4 

menu system. 4 

4 

USE AND INSTALLATION: 4 

4 

1. Install CCL for this program (@ 30000) 4 

CCL name can be any appropriate name. 4 

2. This program chains and/or CCLs on filespecs 4 

provided in the control file MENU.TXT. 4 

3. Build MENU.TXT using the format listed below. 4 

MENU.TXT must reside in the user account. 4 

4 

The first line is a title for the menu and cannot 4 

exceeded 60 characters. The following lines are menu 4 
description lines. 4 

4 

Menu line construct: 4 

4 

T;0PTI0NNAME;TEXT;ACTI0NC0DE;PR0G.NAME;LINEN0 4 

4 

WHERE: 4 

Tri OPTION valid for VT100 only. 4 

T=5 OPTION valid for VT52 only. 4 

TsH OPTION valid for hardcopy only. 4 

T=" " OPTION valid for any terminal type 4 

OPTIONNAME 4 

up to 12 character name for menu option. 

TEXT 4 


optional descriptive text (up to 6C characters). 
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ACTIONCODE 

A = Execute ATPK command file PROG.NAME 
C = chain to PROG. NAME at LINENO passing 
any other text in core common. 

D i Execute DTE command file FROG.NAME 
L = execute CCL using PROG.NAME as CCl and 
passing any other text as switches. 

P Z DATATRIEVE procedure at PROG.NAME 
S = Switch to new menu control file at PROG 
T = Execute a PIP command file 
PROG.NAME 

Execute name (program name or CCL) 

LINENO 

Line number used in chaining 
All items are separated by 
NOTES: 

MENU will page. Up to 15 items are displayed per screen. 
This can be modified by increasing the arrays and changing 
MENU.LIMITS 


& 

& 

& 

& 

& 

& 

& 

& 

NAME& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 



1UU 



& 

1 

COMMON DECLAR 

A T I 0 N 

& 

4 


COMMON Mt(30?) 

1 Sys call array for terminal 

& 


.KB.CHN? 

! Keyboard channel 

& 


,MENU.CHN? 

1 Menu channel 

& 


.PAUS.TIMEJ 

1 Time limit on user input 

& 


.MENU.LIMIT? 

I Limit of menu items to display* 


.OPTION? 

1 Selected option 

& 


.OPT.LEN? 

! Length of option entry 

& 


,N? 

1 Menu item counter 

& 


.VTCHK? 

I Terminal specification 

& 


.LINENO?(15?) 

! Line number used in chaining 

& 


.TEXT $=60? 

! Text to display 

& 


.TITLE$=60? 

1 Title of menu 

& 


.TERM.FLAG$=1? 

I Type of terminal for display 

& 


.OPTION$(15?)=12? 

1 Option names 

& 


.ACTI0N$(15?)=1? 

! Action to perform 

& 


.PROG.NAME$(15?)=26? 

! Execute name for program 

& 

1000!•' 




1 

MAIN PROGRA 

M 

& 


ON ERROR GOTO 19000 


& 

\ 

KB.CHN?=1? 


& 

\ 

MENU.CHN?=2? 


& 

\ 

PAUS.TIME?=60? 


& 

\ 

MENU.LIMIT?=15? 


& 

\ 

MiAIN. MENU $= "MENU. TXT" 

1 Default menu. THIS ACCOUNT 

& 

\ 

OPEN "_KB;" AS FILE KB.CHN?.MODE 

256? 

& 

\ 

X$=SYS(CHR$(11?)+CHR$(KB.CHN?)) 

I Clear type ahead 

& 

\ 

GOSUB 11*000 

! Test for VTl00/VT52/HARDCOPY 

& 

\ 

OPTION?=0? 


& 

\ 

IF CCL? 


& 


THEN GOSUB 10000 

! Read MENU 

& 

\ 

GOSUB 12000 IF OPTION? 

! Execute if possible 

& 

1010 

CCL? . 


& 


OPTION?. 


& 


OPT.LEN?=0? 


& 

\ 

0PT$="" 


& 

\ 

GOSUB 10000 

f Initialize MENU 

& 

\ 

GOSUB 11000 

! Interpret user request 

& 

\ 

GOSUB 12000 IF OPTION? 

1 Execute if possible 

& 

\ 

100001’ 

GOTO 1010 

1 Restart menu display 

& 


10010 

\ 

\ 

\ 

\ 


10020 

\ 

\ 

\ 

\ 


LOCAL SUBROUTINES 

Initialize the menu settings 

OPEN MAIN.MENU $ FOR INPUT AS FILE MENU.CHNJ 
LIN PUT IMENU.CHNK ,TITLE$ 

! Open menu file and get title 

N» = n 

IF CCLJzOJ 

THEN XUzFN.CLEAR.SCREEN? 

PRINT TAB(31t) ;STRING$(73!1,61J) 

PRINT "! ";TITLE$;TAB(79t);"I" 

PRINT "I";TAB(79t) 

! If no CCL entry then clear 
! screen and display title 

LINPUT #MENU.CHN?.MENU.LINE$ 

TERM.FLAG$=LEFT$(MENU.LINE$,1J) 

GOTO 10020 IF TERM.FLAG$="H" AND VTCHKJ01? 

! This is a hardcopy option 
GOTO 10020 IF TERM.FLAG$="5'’ AND VTCHKJ02? 

! This is a VT52 option 
GOTO 10020 IF TERM.FLAGI:"!" AND VTCHK?<>3? 

! This is a VT1C0 option 


WANT NEW REPORTS 
fROM AN OLD APPUCATION? 

YOU NEED OUR 

Rmua-mtmR! 

GRS, The Generalized Reporting System, 
runs on VAX and RS're systems; 

• More powerful than Datatrieve, 
but easier to use 

• Much less expensive 

• Compatible with most 
applications packages 



ENTERPRISE 

TECHNOLOGY 

CORPORATION 


305 MADISON AVENUE 
NEW YORK, NY 10165 
(212) 972-1860 


CIRCLE 4 ON READER CARD 


Don’t wait for the movie. 
The 

RSTS Internals Manual 

is here. 


DEC 

SYSTEMS & COMPONENTS 

C.D. SMITH & ASSOCIATES, INC. 
12605 E. Freeway, Suite 318 
Houston, TX 77015 

( 713 ) 451-3112 

CIRCLE 54 ON READER CARD 
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\ SC.P0SJ = P0S(MENU.LINE$,";",1J) & 

\ SC.P0Sn = P0S(MENU.LINE$,";",SC.P0S<4.1J) & 

\ OPTION$(N{):SEG|(MENU.LINE$,SC.POSSflS ,SC.P0S1f-1J) & 

I Option name & 

\ SC.P0St = P0S(MENU.LINE$,";",SC.P0Sn+1J) & 

\ TEXT$=SEG$(MENU.LINE$,SC.P0S1J+1>,SC.P0SJ-1S) & 

I Option description & 

\ SC.P0S1J = P0S(MENU.LINE$,";",SC.P0SJ^U) & 

\ ACTI0N$(N>)=SEG$(MENU.LINE$,SC.P0SJ + 1|,SC.P0S1|-1<) & 

I Action to perform for option & 

\ SC.P0S% = P0S{MENU.LINE$,";",SC.P0S1| + 1J) & 

\ PROG.NAME$(Nt)=SEG$(MENU.LINEe,SC.POS1>+1J,SC.POS$-1$) & 

I Program or command file to use& 
\ LINENOX W)=VAL(FIGHTt(MENU.LINE$,SC.P0SJ+1J)) & 

! Chaining point for program & 

\ OPTIONtrNt IF 0PT$=LEFT$(0PTI0N$(W),0PT.LENJ) AND CCLJ & 

\ RETURN IF OPTION* I If a CCL entry and option & 

! matches then save option value& 
I and get out. & 

\ GOTO 10020 IF CCL* I If a CCL entry do not display & 

I oDtion line & 

\ PRINT "[ ";0PTI0N$(N*)- ";TEXT$;TAB(79*)& 

\ N* = N*+1* & 

\ GOTO 10020 IF N*<=MENU.LIMIT* & 

\ PRINT & 

\ PRINT "[ To PAGE hit [RETURN] .. . ";TAB( 79*); 4 


10030 RETURN IF CCL* 


10040 

\ 


\ 

\ 

12200 

\ 

\ 


12250 

\ 


I Should never get here on CCL 4 
I unless no match is found 4 

4 
4 
4 
4 

I Make it upper case 4 

GOTO 10010 IF 0PT$="" AND N*>MENU.LIMIT* 4 

I Page for other options 4 


PRINT 

PRINT " Option> 

WAIT PAUS.TIME* 

LIN PUT #KB.CHN*, OPT* 
0PT$=EDIT$(0PT$,32*) 


\ 

\ 

\ 

12300 

\ 

\ 

\ 

12350 

\ 

12400 

\ 

\ 

\ 

14000!* 

! 

! 

! 


X*=FN.CLEAR.SCREEN* 
X$=FN.CCL$(PROG.NAME*) 
RETURN 


I Clear screen 
I Perform syscall for CCL 
! Execute CCL PROG.NAME + user input 


PROG. NAME*="DTR : "i-PROG. NAME*(OPTION*) 

X*rFN.CLEAR.SCREEN* I Clear screen 

X*=FN.CCL*(PROC.NAME*) I perform syscall for CCL 

return ! Do DATATRIEVE procedure PROG.NAME 


I Get next menu 


MAIN.MENU*=PROG.NAME*(OPTION*) 

RETURN 

PROG.NAME*="PIP §"+PROG.NAME*(OPTION*) 

X*=FN.CLEAR.SCREEN* I Clear screen 

X*=FN.Ca*(PROG. NAME*) I Perform syscall for CCL 

RETURN 


Determine Terminal Characteristics 

CHANGE SYS(CHR*(6*)+CHR*(16*)+CHR*(0*)+CHR*(255*)♦ 

STRING*(24*,0*)) TO M* 


VTCHK*=1* 

RETURN IF M*(11*)=128* 

VTCHK*=2* 

RETURN IF M*(9*)=128* 

PRINT #KB.CHN*,CHR*(155*);"[c"; 

WAIT 1* 

GET fKB.CHN* 

X*=RECOUNT 

MOVE FROM #KB.CHN*,X*=X* 

VTCHK*=3* IF POS(X*,1*) 

I This should work for VTIOO and CIT-101 


! Get terminal characteristics 
I Hardcopy terminal 
I NO SCOPE set 
I VT52 

I NO XON set 
I Ask for VTIOO I.D. 

I Walt only 1 second 


14020 RETURN 


CLOSE #MENU.CHN* 
RETURN 


11000I* 


11099 

\ 


Determine if user input is executable 
X*=P0S(0PT*,SP,1*) 

USER.DATA*=EDIT*{RIGHT*(0PT*,X*-*-1*) ,8*+128*i-32*) IF X* 

I Save rest of entry line 

0PT*=LEFT*(0PT*,X*-1*) IF X* 

0PT.LEN*=LEN(0PT*) 


15000!» 

! 

! 

! 

\ 

\ 

\ 

\ 


LOCAL FUNCTIONS 
DEF FN. CL EAR. SCREEN* 

PRINT CHR*(155*)i-"[2J"+CHR*(155*)+"[0;0H"; IF VTCHK* = 3* 
PRINT CHR*( 155*)^"H"i-CHR*(155*)-^"J"; IF VTCHK*=2* 

PRINT 

FNEND 


RETURN IF 0PT.LEN*<3* I Input must be at least 3 chars4 

RETURN IF LEFT*(0PT*,I*)rLEFT*(0PTI0N*(0PTI0N*),I*) 4 

FOR OPTION**1* TO N* 4 


15100 DEF FN.PUT.CORE.COMMON*(D*)=SYS(CHR*(8*)+D*) 

I Put DATA D* in core common 

15200 DEF FN.CCL*(D*)=SYS{CHR$(14*)+D*) 

I Do CCL 





FOR I*=0PT.LEN* TO 3* 

STEP -1* 

4 

190001* 






1 Loop through all options 

4 

! 


4 




1 trying to match user input 

4 

! 

STANDARD ERROR HANDLING 

4 




! with an option 

4 

! 


4 








RESUME 32767 IF ERL=10030 

4 

OPTION*=0* 


I No match, so return back with 

4 


! User is quitting on time-out or CTRL/Z 

4 

RETURN 


! a bad request 

4 

\ 

RESUME 111020 IF ERLrUOOO 

4 








! Time-out waiting on VTIOO I.D. call 

4 







\ 

RESUME 11099 IF ERL=11000 

4 






>4 


! Subscript out of range on a CCl entry 

4 






4 

\ 

RESUME 10030 IF ERL=10020 AND ERR=11* 

4 


Process 

MENU function code 


4 


! End of file on read 

4 






4 

\ 

RESUME 10020 IF ERL=10020 AND (ERR=52* OR ERR=55*) 

4 

[ A ] 

1. 

Execute 

ATPK command file PROG. NAME 

4 


! Line number specification is illegal number 

4 

[ c ) 

2. 

Chain to PROG. NAME at LINENO 


4 


1 or subscript out of range 

4 

[ D ] 

3. 

Execute 

DTR command file PROG 

.NAME 

4 




[ L ) 

4. 

Execute 

CCL PROG.NAME with USER.DATA* 

4 

19010 

IF ERR=5* 

4 

[ P ] 

5. 

Execute 

DATATRIEVE procedure 

PROG. NAME 

4 


THEN PRINT "That option does not exist" IF ERL=12150 

4 

[ s ] 

6. 

Switch 

to MENU PROG.NAME 


4 

\ 

RESUME 32767 

4 

[ T ] 

7. 

Perform 

a PIP command file 


4 


1 Tried to chain to a non-existent program 

4 






4 


I Menu file does not exist. Just act like 

4 

X*=FN. 

PUT. CORE. C0ht10N*( 

"") 1 Clear core 

common 

4 


I nothing happen. 

4 

ON POS("ACDLPST",ACTION*(OPTION*),1*) 


& 






GOSUB 

12100, l[ A 

]l 

4 

19900 

PRINT "Error: ";ERR;" ";ERT*(ERR);" at line ";ERL 

4 




12150, l[ C 

)l 

4 

\ 

RESUME 32767 

4 




12200, ![ D 

]l 

4 







12250, l[ L 

]l 

4 

300001* 






12300, I[ P 

]l 

4 

! 


4 




12350, l[ S 

)I 

4 

1 

CCL ENTRY POINT 

4 




12400 l[ T 

31 

4 

1 


4 








ON ERROR GOTO 19000 

4 

RETURN 





& 

\ 

0PT*=SYS(CHR*(7*)) 

4 







\ 

CCL*=0* 

4 

FF.fJC.NAME*="PER 

"♦PROG. 

NAME*(OPTION*) 


4 

\ 

USER.DATA*="" 

4 

X*=FN. 

CLEAR. SCREEN* 

1 Clear screen 

& 

\ 

X*rPOS(OPT*,SP,1*) 

4 

X*=FN. 

CCL*(PROC. 

NAME*) 

1 Perform syscall for CCL 

4 

\ 

0PT*=RIGHT*(0PT*, X*^1*) 

4 

RETURN 



! Execute ATPK file PROG.NAME 

4 

\ 

GOTO 1000 IF LEN(0PT*)<3* 

4 


X*=FN.CLEAR.SCREEN* I Clear screen 4 
X*=FH.PUT.CORE.COMMON*(USER.DATA*) IF LEN(USER.DATA*) 4 

! Put DATA in core common 4 
CHAIN PROC.NAME*(OPTIOH*) LINE LINENO*(OPTION*) 4 
RETURN • Chair, to PROG. NAME at LINENO 4 

PROG.NAME*="DTR e"+FR0G.NAME*(OFTION*) 4 
X*=FN.CLEAR.SCREEN* ! Clear screen 4 
X*=FN.CCL*(PROG.NAME*) 1 Perform syscall for CCL 4 
RETURN ! Execute DATATRIEVE command file PROG.NAME 4 

PROG.NAME*=PROG.NAME*(0PTI0N*) 4 
PROG.NAME*=PROG.NAME$♦" "♦USER.DATA* IF LEN(USER.DATA*) 4 


1 Assume not a CCL entry if 4 

1 input is less than 3 chars 4 

X*=P0S(0PT*,SP,1*) 4 

USER.DATA*=RIGHT*(0PT*,X*^1*) IF X* 4 

0PT*=LEFT*(0PT*,X*-1*) IF X* 4 

0PT.LEN* = LEN(0PT*) & 

CCL* = (OPT.LEN*> = 3*) 4 

GOTO 1000 4 

! Pull-off any user parameters 4 

! and save them 4 


32767 END 
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NEW 

PRODUCTS 


ROSS OFFERS 
STOCK OPTION 
SOFTWARE SYSTEM 


A stock option software system that 
manages and tracks all employee 
stock option plan information is now 
available from Ross Systems. The 
new accounting and tracking system 
meets all current legislative re¬ 
quirements for incentive stock op¬ 
tions (ISO) and provides complete in¬ 
formation for public, tax and internal 
reporting of stock option programs. 

Through its database design, Ross' 
Stock Option System gives users 
complete control over their option 
plan to accommodate changing 
regulations. As an interactive system, 
it tracks all activity relating to the 
granting, exercising, cancellation and 
repricing of employee stock options. 
Additionally, the system meets 
Federal Incentive Stock Option (ISO) 
accounting and reporting re¬ 
quirements. The Ross System is 
available to run on Digital Equipment 
Corporation's PDP-11 Series and VAX 
series minicomputers under RSTS/E 
and VMS operating systems. It pro¬ 
vides a selection of standard reports, 
accommodates specific inquiries 
about participants and can interface 
with both company personnel and 
compensation systems. It can accept 
information regarding employee 
status or location on a daily basis and 
is compatible with a number of com¬ 
munications formats. 

The Ross Stock Option System is 
based on Ross' interactive INTAC 
database management system for 
organizing and reporting business in¬ 
formation. Ross Systems, Inc. pro¬ 
vides financial decision support, ap¬ 
plications and database software for 
financial managers in manufacturing, 
business services and banking. Soft¬ 
ware is available for Digital Equip¬ 
ment Corporation minicomputers or 
through Ross' worldwide timesharing 
network. For information, contact 
Jack Brown at Ross Systems, 1860 
Embarcadero Road, Palo Alto, CA 
94043, (415) 865-1100. 


DIGITAL ANNOUNCES 
DECmail/RSTS 


In 1860, the century's most 
modern method of delivering the 
mail galloped into the daily lives of 
many of the people of this country. 
Relays of swift horses and unflinching 
men — the Pony Express — raced 
from St. Joseph, Missouri to 
Sacramento, California in record 
time. 

Later came Wells Fargo coaches 
and four. They sped mail, cargo and 
passengers ever faster. Trains and 
planes followed. But even they were 
not the ultimate. Because now, in 
1983, an entirely new and incredibly 
faster method of delivering messages 
has just been announced by Digital. 

This new method enables RSTS/E 
users to receive and send messages 
to business associates down the hall, 
across town, around the country and 
overseas — elecronically. To in¬ 
dividuals or entire groups all at once. 
To file and retrieve and edit these 
messages almost without effort at 
enormous savings In cost and time. 

It's called DECmail/RSTS and it's here 
now. 

DECmail/RSTS was sired, reared 
and broken in just for you. It was 
designed by the original RSTS/E 
development team — the computer 
gang that knows the RSTS/E system 
intimately. Their experience and ex¬ 
pertise has made DECmail/RSTS a 
downright superior product. 

What does DECmail do? 

Everything an electronic message 
system should. With DECmail, you 
can create, edit, send and process 
messages. The message could be a 
simple memo: "Your preliminary 
figures for quarter just ended seem 
too good to be true. Please check 
and verify at once." 

Or a complicated specification 
completed overnight and forwarded 
for first morning review: "Report 
rechecked and confirmed. Here's the 
detailed breakdown for immediate 
action." 

DECmail also stores messages it 
receives while you are out. Before 
you begin your work in the morning, 
for example, it brings you up-to-date. 
"You have 3 new messages." And it 
shows you their essence and whom 
they're from. 


There's more. 

As for filing systems, DECmail will 
organize your material for you — 
easily, efficiently, electronically. It 
stores, searches for and retrieves 
messages held in your files. 

If this sounds as easy as falling off a 
horse, it is. DECmail designers knew 
RSTS/E software had to be sophisti¬ 
cated enough for advanced users and 
yet simple and uncomplicated for 
computer novices. DECmail is both. 

For beginners, easy-to-learn com¬ 
mands and flexible options make 
learning a cinch. If there's trouble 
along the way, the on-line help facil¬ 
ity can solve problems fast. For ad¬ 
vanced users, DECmail offers many 
features including the flexibility to 
support many project teams by shar¬ 
ing specified folders. This way, 
everyone keeps abreast of the latest 
data. Managers, project leaders, 
researchers, administrators — all 
communicate quickly, easily and 
more effectively with DECmail. 

Who can use DECmail/RSTS Ver¬ 
sion 1.0? 

DECmail runs on RSTS/E Version 
7.2 and 8.0. No update will be 
needed for DECmail/RSTS until after 
RSTS/E V8.0 Is released. Thanks to 
DECmail update kits, you won't be 
saddled with an obsolete software 
product down the line. 

Specifically, DECmail/RSTS allows 
single-node use on a single RSTS/E 
system. When used with DECnet/E, it 
provides multi-node use. Multiple 
standalone RSTS/E systems running 
DECmail/RSTS can be connected in a 
network, allowing users on one 
system to exchange mail with users 
on other systems. VAX/VMS systems 
running the VMSmail facility also can 
exchange messages with systems run¬ 
ning DECmail/RSTS through DECnet. 

DECmail/RSTS can be used from 
any RSTS/E command terminal. Sup¬ 
ported terminals include word proc¬ 
essing systems (WS78, WS278 and 
DECmate) running CX protocol. 

All this is available now for only 
$3,000 per system (only $1500 per 
additional license). And just as im¬ 
portant, DECmail can increase pro¬ 
ductivity and improve your working 
environment. It is a new way for 
people in business to communicate 
with each other. 

Order your DECmail/RSTS software 
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now. As a gesture of appreciation for 
acting promptly, Digital will send you 
an authentic western belt buckle as a 
gift. Only one per pardner, please. 
Call toll free (800) DEC-INFO any 
working day between 8:30 a.m. and 
5:00 p.m. EST. 


NORTHWEST DIGITAL 
SOFTWARE ANNOUNCES 
RPM - RSTS 


RPM Is a new performance op¬ 
timization package from Michael 
Mayfield and Northwest Digital Soft¬ 
ware. RPM can drastically improve 
total system performance by Identify¬ 
ing problem areas in system usage, 
the programs that caused the prob¬ 
lems and the problem areas within 
each program. RPM Is the only prod¬ 
uct that can do all this. 

System tuning with RPM uses a 
step by step "cookbook" approach. 
No knowledge of system tuning or 
monitor internals Is required. Prob¬ 
lem areas are identified using an 
automatic procedure which provides 
a report describing, in plain English, 
not numbers, where the system per¬ 
formance can be improved. It even 
makes suggestions for Improvement. 

On-line plotting, histograms and 
other reports can be used to further 
identify problem areas. Extended 
monitor data collection allows plot¬ 
ting of information not normally 
available, such as seek distance, disk 
usage, and cache, memory, file proc¬ 
essor (FIP), and small buffer utiliza¬ 
tion. The programs causing the prob¬ 
lems are then identified and can be 
examined in extreme detail. Detailed 
examination of a program includes 
CPU usage, a count of I/O requests 
and disk overhead by channel and a 
count of monitor calls and disk 
overhead by call. For information, 
contact Northwest Digital Software, 
Inc., Box 2-743, Spring Valley Road, 
Newport, WA 99156, (509) 447-2620. 


REPORTING SYSTEM 
AVAILABLE FOR VAX 


Enterprise Technology Corporation 
has announced the release of the 
Generalized Reporting System (GRS) 
for Digital Equipment Corporation 


VAX-11 computers. GRS is a user- 
friendly report writer, query and 
audit package designed for use with 
a wide variety of file formats and 
database systems, and is a low-cost 
alternative to Digital's Datatrieve 
facility. 

GRS is compatible with the applica¬ 
tions packages from most major soft¬ 
ware vendors, as well as with systems 
developed by end users. It includes a 
powerful English-like query language 
which can be used by both program¬ 
mers and non-programmers. With 
GRS, management personnel can 
meet their own needs for ad-hoc in¬ 
formation retrieval, and systems per¬ 
sonnel can vastly decrease the 
amount of time spent responding to 
user requests for reports. GRS is also 
Ideal for use by auditors. 

The GRS software for VAX systems 
Is supplied under a perpetual license 
for a one-time fee of $6,500.00 
which includes full documentation 
and one year of support. More infor¬ 
mation can be obtained by contact¬ 
ing Enterprise Technology Corpora¬ 
tion at 305 Madison Avenue, New 
York, NY 10165, (212) 972-1860. 


SPSORT FOR RSTS/E 


The System Performance House, 
Inc. is pleased to announce a new 
high-performance RSTS/E sort called 
SPSORT. 

— SPSORT can sort a file onto itself 
using no scratch space except for a 5 
block command file. 

— SPSORT can sort a file from one 
device onto another file on another 
device. 

— SPSORT sorts a wide variety of 
data types Including all Basic-Plus 
CVT types, all 8-, 16-, 32- and 64-bit 
signed and unsigned data types, 
FORTRAN IV-Plus 1*4, DIBOL 
decimal, packed, and EBCDIC. In ad¬ 
dition, the user may specify any two 
byte-collating sequences desired. 

— SPSORT will sort any type of 
fixed length record file whose record 
length is 512 bytes or less and whose 
total size is one billion bytes or less. 
There is no limit on record count. 

— SPSORT is extremely fast. In one 
test, SPSORT sorted 100,000 64-byte 
records with 23 byte keys in 16 
minutes on an 11/24 with RK07 disk 
drives. 


— SPSORT has an extremely ver¬ 
satile calling format enabling the user 
to chain into and out of it in a 
number of ways. 

Available with SPSORT are "front- 
end" modules which emulate OMSI 
SORT-1 Plus from Oregon Software, 
FSORT3 from E. G. and H., and 
DEC'S SORTG/SORTM without 
change in user software! 

SPSORT, complete with emulators, 
is attractively priced. The System Per¬ 
formance House will provide a 
superior sort at a lower price than Its 
competitors. Fixed priced unlimited 
licenses are available to authorized 
DIGITAL distributors and OEM's at 
exceptionally low rates. For specifica¬ 
tions and pricing information, contact 
the System Performance House, Inc., 
5522 Loch More Court, Dublin, OH 
43017, 614-265-7788. 


VSELECT FOR VAX 
FROM EG&H 


Evans Griffiths & Hart, Inc. has an¬ 
nounced the release of a new prod¬ 
uct, VSELECT, a high speed machine- 
language record extractor for the 
VAX under VMS. The package 
handles RMS fixed-record-length se¬ 
quential, relative, and indexed files 
(prologue 2 only). 

VSELECT employs user-specified 
selection criteria to extract from one 
or more input files those records 
needed for specific report or applica¬ 
tion. Optionally, the extracted 
records are modified by the deletion, 
insertion, or rearrangement of fields. 
The records are then written to an 
output file that may be sorted by 
VSORT, EGH's fast machine-language 
sort package. VSORT may be in¬ 
voked directly through VSELECT. 

Selection keys for VSELECT include 
ASCII, signed and unsigned integer, 
floating point (single, double, giant, 
or huge), packed decimal, and the 
relative file record occupancy flag. 

VSELECT supports a number of 
sophisticated options, among which 
are: (1) hooks for user-coded selec¬ 
tion criteria and output field transfor¬ 
mations; (2) conditional field copy¬ 
ing; (3) the conditional generation of 
multiple output records from a single 
input record; (4) the generation of 
backpointers into the input file(s) — 
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including RFAs for RMS files; and (5) 
the insertion of string literals in out¬ 
put records. 

VSELECT is callable from any of the 
VAX native mode languages that sup¬ 
port the standard DEC procedure 
calling conventions. In addition, the 
package is supplied with a self- 
contained interactive interface that 
can accept partial or complete com¬ 
mand files. 

A single-CPU license for VSELECT is 
$1500.00, discounted to $500.00 
when the package Is purchased with 
VSORT. OEM discounts are available. 
Contact Evans Griffiths & Hart, Inc., 
55 Waltham St. Lexington, MA 
02173. Tel: (617) 861-0670. 


STAR PLAN 
INTRODCES MARCO 
LANGUAGE UTILITY 


Star Plan Data Processing of 
Milwaukee, Wisconsin is pleased to 
announce MPR, a multipurpose 
macro language utility. MPR Is a 
system engineering tool designed 
primarily as a program language 
preprocessor. The basic technical 
principles involved are the reduction 
in volume of the code body, and the 
addition of a level of abstraction 
above the source language. This 
decreases the cost of maintenance 
and increases the flexibility and port¬ 
ability of the application system. 

Users of the utility are able to work 
it with anything that Is kept in text 
files. Examples include BASIC-f 2, 
COBOL, DIBOL, TECO, BASIC-h, 
RPG, C, RNO, PASCAL, LISP, ATPK 
and batch control files, and 
documentation. 

MPR includes features for Interac¬ 
tive applications and is frequently 
used to tailor control files according 
to the user's specific requirements. 

The product's single most common 
application Is sharing data definitions 
used by many programs in a system. 
For example, if you put record defini¬ 
tions for an application into external 
files and ".INCLUDE" them in the 
programs in the application, the en¬ 
tire application can be rebuilt with 
the new definitions after changing 
only one file. 

With individual programs, "com¬ 
mon" areas can be defined in one 


place for a program with many exter¬ 
nal subroutines. This can save con¬ 
siderable time when compared to the 
conventional technique of editing 
each module separately to bring 
them up to date. 

Another practical application for 
MPR is source-level libraries of pro¬ 
gram code. By using MPR on stan¬ 
dard system routines, programmers 
can have the advantages of standard 
libraries without the memory and 
runtime cost of automatically bring¬ 
ing In unnecessary code. 

OEMs often need to create several 
versions of a software product with 
minor, but pervasive differences. Us¬ 
ing MPR, it is possible to have a 
single body of source code for a class 
of very similar applications, which 
expands differently for different 
clients or operating systems. It is also 
possible to create an integrated soft¬ 
ware package and unbundle various 
features by either including or ex¬ 
cluding the relevant code when 
creating a client's system. 

MPR is a highly versatile software 
tool that will benefit large scale ap¬ 
plication programming jobs. It has 
proven its adaptability to a wide 
range of specific in-house 
methodologies. 

MPR is priced at $875.00 for a 
single-CPU binary license and is 
available for all of Digital Equipment 
Corporation's PDP-11 series 
minicomputers using RSTS/E, and will 
soon be released under VAX VMS 
and RSX-llM-f. Further information 
about MPR can be obtained from 
Star Plan Data Processing, 2040 W. 
Wisconsin Avenue, Suite #354, 
Milwaukee, Wl 53233, ATTN: Noah 
M. Dixon, (414) 933-0800. 

BASIC-H, BASIC2, DIBOL, RSTS/E, 
VAX VMS, and RSXll are trademarks 
of Digital Equipment Corp. 

MPR is a trademark of Star Plan 
Data Processing, Inc. 


FREE LITERATURE 
FROM CROSS 


Cross Information Company is offer¬ 
ing a series of articles entitled: Ad¬ 
vanced Business Communications: 
Applications for Computer 
Tele/conferencing. They are designed 
to help businesses and educational 


institutions develop and implement 
productive and cost-effective com¬ 
puter tele/conferencing on VAX 
systems. 

The CIC series offers practical ad¬ 
vice on planning, cost justification, 
and strategies for using computer 
tele/conferencing. CIC has organized 
these articles into specific applica¬ 
tions: 

• Association management 

• Improving software development 
and programmer productivity 

• Managing the sales/marketing 
department 

• Educational and training 
applications 

• Uses in quality/study circles 

• Telecommunications 
management 

• Corporate strategic planning 

• General corporate management, 
and 

• Legal office and education. 

Requestors are asked to indentify 

which articles are desired. There Is 
no charge for these articles. There 
are available from Cross Information 
Company, Corporate Communica¬ 
tions, 934 Pearl Mall — Suite B, 
Boulder, Colorado 80302-5181, 
303-499-8888. 


EDT MANUAL FROM 
COMPUTEREASE 


DEC'S EDT editor, available for its 
PDP-11 and VAX product lines, is a 
flexible, powerful editor. However, 
the complexity of the EDT manual 
has intimidated many of DEC'S less 
experienced users, programmers as 
well as clerical workers. Many users 
learn as much as they need to know 
for their basic functions and then end 
their learning process, as far as EDT 
goes. As a solution to this problem, 
ComputerEase Publishing announces 
the availability of their latest publica¬ 
tion, "Understanding EDT." 

Recognizing that a good manual 
takes technical skill as well as good 
writing ability, ComuterEase teamed 
a programmer with an experienced 
technical writer to produce the 
manual. To further ensure the 
technical accuracy of the manual, all 
composition was performed using the 
EDT Editor itself. 

"Understanding EDT" is especially 
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worthwhile for novices; it begins by 
explaining how to use a CRT and the 
basic concepts of using a text proc¬ 
essor. The command section of the 
manual progresses in difficulty from 
the basic commands to the more ad¬ 
vanced ones. In presenting the mater¬ 
ial this way, the aim is bring the user 
along gradually, so that he or she gains 
more capability with each succeeding 
chapter. ''Understanding EDT" covers 
all three editing modes: keypad, 
nokeypad, and line mode, with the 
emphasis on keypad mode. In addi¬ 
tion, the manual discusses strategies 
in using the editor and provides ex¬ 
amples for applying it in text process¬ 
ing and programming environments. 

The "Understanding EDT" manual 
contains more than 150 pages of in¬ 
structional material. It is available 
from ComputerEase Publishing for 
$49.95 per manual in quantities of 
nine or less, and for $34.95 each in 
quantities of ten or greater. To place 
an order or for more information, 
contact Director of Marketing, Com¬ 
puterEase Publishing, P.O. Box 
390272, Mountain View, CA 94039. 


PRODUCT 

UPDATES 


SORTC FOR RSTS 
FROM JBM GROUP 


The JBM Group announces that its 
SORTC Compounding Sort V2.5 is 
now available for PDP-1 Is using the 
RSTS/E operating system. This disk 
sort, written entirely in MARCO-11, is 
one of the many software products in 
JBM's MIDWARE line. 

Originally written as a high-speed, 
direct replacement for DEC'S SORTG/ 
SORTM DIBOL sort package, it Is 
now expanded to handle DMS-500 
Type 1 and Type 2 files. This permits 
use in BASIC-Plus and BASIC-Plus-2 
shops that use native mode RSTS 
block I/O. 

SORTC operates in standalone 
mode or is available in subroutine 
form to be called from within a 
DIBOL, MACRO-11 or BASIC-Plus-2 
program. 


The compounding feature permits 
summing of selected numeric fields, 
consolidating data records and pro¬ 
ducing totals without the need for a 
post-processing routine. This reduces 
the number of times data records are 
shuffled about during sorting thus 
limiting both CPU usage and disk 
requirements. 

SORTC may be fine-tuned by the 
user to balance system resource 
loading. Complete documentation in¬ 
cludes numerous examples of option 
use. 

SORTC is available from stock on 
either 800 or 1600 bpi 9-track tape. 
The standalone version, including 
basic sort mechanics, is priced at 
$1,400.00. The optional subroutine 
capability is an additional $500.00. If 
purchased together the price is 
$1,700.00. For further information or 
to order SORTC, contact: The JBM 
Group, Inc. Dept. 22B, 332 West 
Church Road, King of Prussia, PA 
19406, TWX 510-660-3999, TEL 
215-337-3138. 


PORTRAIT DISPLAY 
OPTION FOR 
AMBASSADOR 


Ann Arbor has announced a por¬ 
trait display configuration of the Ann 
Arbor Ambassador for text editing ap¬ 
plications. This configuration uses a 
vertical screen to provide a full-page 
display in an 6 -V 2 x 11 format. 

The Portrait Display Ambassador, 
unlike other full-page terminals, 
allows the user to select the display 
size most appropriate for the applica¬ 
tion. If small characters become tir¬ 
ing, the user can "zoom" part of the 
text off-screen to increase character 
size, yet instantly "zoom" it back to 
a full-page display for context or 
review and final editing. This 
multiple-format capability also per¬ 
mits use of existing programs written 
for conventional 24-rine terminals 
while the user adds full-page pro¬ 
grams to his or her library. 

The Ann Arbor Ambassador is 
especially suited to text editing 
because it is one of the few Interac¬ 
tive terminals available that can be 
made to locally rearrange data on the 
screen. In addition, its editing com¬ 
mands are controlled by hardware 


line pointers rather than firmware, 
which speeds up their execution and 
virtually eliminates the need for pad 
characters. Its ANSI-standard coding 
permits the use of decimal param¬ 
eters in the edit commands so the 
application software can Insert or 
delete multiple lines or characters 
without repetitively sending the same 
command. A meta shift is provided 
for use with editors, such as EMACS, 
that use the parity bit for data 
transmission. 

Other features of the Ambassador 
include detachable keyboard with 
sixty programmable key levels, a 
split-screen operation with user- 
definable scrolling regions, multiple 
page/window capability, printer out¬ 
put, and both block-mode and KSR 
operation. Options include DEC 
mode for VTIOO software compatibil¬ 
ity and a tilt/swivel stand. 

The Portrait Display Ambassador is 
available from Ann Arbor distributors 
or from the factory direct. The sug¬ 
gested retail price Is $1795; delivery 
is from stock to 30 days. For further 
information, contact Kathryn Straith, 
Ann Arbor Terminals, Inc., 6175 
Jackson Road, Ann Arbor, Ml, 
313/663-8000. 


COMBOARD/3780 
NOW AVAILABLE FOR 
VAX, PDP-1 IS 


Software Results Corporation Is an¬ 
nouncing the addition of the ability 
to communicate via 3780 protocol to 
the COMBOARDtm series of front- 
end processors for DEC VAX and 
PDP-11 systems. 

The COMBOARD/3780 is a com¬ 
plete hardware/software system 
designed to function under the VMS, 
RXS-lllM/M-H and UNIX operating 
systems. It provides an RJE link to 
IBM or any other mainframe support¬ 
ing the standard 3780 protocol. It 
performs the communications proc¬ 
essing at speeds up to 56 kbps. The 
off-loading of this processing from 
the DEC CPU allows the DEC ma¬ 
chines to respond rapidly, processing 
user applications more efficiently. 

The COMBOARD/3780 offers the 
ability to route files directly from the 
central system to end-user disk areas. 
The end-user is automatically notified 
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when files are placed. This saves the 
users time and provides security for 
the received data. Files can be 
previewed before valuable printing 
time is used. Graphics can be 
previewed before being spooled to 
plotting devices. 

The COMBOARD/3780 also has the 
ability to act as a central system. This 
feature allows the DEC systems to 
communicate with PC's or any RJE 
station able to communicate via 3780 
protocol. 

End users make more cost effective 
use of both the central system and 
DEC machines because of the ease of 
use and efficiencies of the COM- 
BOARD. 

COMBOARD/3780 is available in 
three models supporting transfer 
rates from 1200 to 56,000 bps. Prices 
range from $9,800 to $17,900 in¬ 
cluding hardware and software. For 
information contact Software Results 
Corp., 2887 Silver Drive, Columbus, 
Ohio 43211 (614/267-2203). 


HYBRICON OFFERS 
UNIBUS, Q-BUS BOARDS 
OFF-THE-SHELF 


Hybricon Corporation offers wire 


wrappable socket boards "off-the- 
shelf." These boards are available 
with socket pins installed (4-format) 
or for use with DIP sockets 
(2-format). Hybricon's dual size 
2-DE2-VHF can hold 52-16 pin DIPS, 
and costs only $80.00 in unit quan¬ 
tities. The quad size, 2-DE4B-VHF, 
can handle 111-16 pin DIPS at a unit 
cost of $140.70. Loaded with socket 
pins, the 4-DE2-VHF sells for $198.60 
and the 4-DE4B-VHF for $358.30. 
Hybricon's patented pattern, VHF 
ground planes and VHF accessories 
enables you to mix analog and digital 
logic as well as high speeds (in ex¬ 
cess of 250 MHz). These boards are 
directly compatible with Digital 
Equipment Corporation's hardware. 
Extender boards related accessories, 
wire wrapping services and custom 
design are all offered by Hybricon 
Corporation, 410 Great Road, Lit¬ 
tleton, Massachusetts 01460, (617) 
486-3174. 


INMAC HAS COMPACT 
GENDER CHANGER 


A self-contained, compact gender 
changer available from Inmac makes 
it easy and economical to recon¬ 


figure office terminals by joining 
cables whose genders conflict. 

Inmac offers the gender changers 
as an inexpensive alternative to 
replacing or modifying EIA 232 
cables. The unit — which will fit into 
a shirt pocket — consists of two EIA 
232 25-pin connectors placed back 
to back. Both male-to-male and 
female-to-female connectors are 
available, with all 25 pins connected. 

The gender changers are marketed 
by the company's Data Communica¬ 
tions Division, and are guaranteed 
for one year. Data Communications 
also manufactures standard and Clear 
SignaliM custom cables for a wide 
variety of micro and minicomputers 
and peripheral devices. 

Inmac offers 24 hour shipment of 
phone and mail orders from regional 
sales and distribution centers 
throughout the United States. The 
company also maintains distribution 
facilities in Europe. For a free copy of 
Inmac's 100-page, four-color catalog 
listing over 2,000 mini and computer 
accessories, contact: Ron Becht, 
Product Marketing Manager, INMAC, 
Department 118, 2465 Augustine 
Drive, Santa Clara, CA 95051, 
408-727-1970. 


SOFTOOL RELEASES 
CHANGE CONTROL 
ENVIRONMENT 


Softool Corporation is pleased to 
announce the release of its Change 
Control (CC) Environment. 

CC automates the management of 
software changes and their documen¬ 
tation. It also controls who can make 
changes and to what components, 
thereby eliminating many un¬ 
workable manual procedures. CC 
can handle anything: source code, 
object code, test data, documents, . . 

. and it can deal with any language: 
FORTRAN, COBOL, PASCAL, ADA® 
jOVIAL, Assembly . . . 

CC provides comprehensive 
features that include: automatic 
reconstruction of previous versions, 
problem tracking, difference reports, 
management reports, access control, 
archiving, compression, encryption, 
automatic recovery, and more. CC is 
an interactive tool with an easy-to- 
use interface, on-line help, and in¬ 
teractive tutorials. 
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CC is a stand-alone component of 
SOFTOOL, which is an integrated 
set of tools. CC offers complete sup¬ 
port for source code management. 
CC is upgradable to the SOFTOOL 
Change and Configuration Control 
(CCCtm) Environment which, in addi¬ 


tion to change control, also offers full 
support for configuration control. A 
Programming Environment is also 
available. 


A permanent license for CC is 


$12,000 with significant multiple 
copy discounts and a fifty percent 
credit toward any subsequent 
upgrade to CCC. For further details, 
contact Softool Corporation at 340 
South Kellogg Avenue, Goleta, CA 
93117. Telephone: (805) 964-0560. 


SEMINARS, MEETINGS, SHOWS 


PRECISION VISUALS SPONSORS 
FREE GRAPHICS SEMINARS 


Precision Visuals, Inc., is currently 
sponsoring a free half-day graphics 
seminar in cities throughout the 
United States and Canada for end 
users, programmers, analysts, techni¬ 
cal managers, and others who design 
and implement applications systems 
employing computer graphics. 

Entitled "Understanding and Apply¬ 
ing Today's Computer Graphics," the 
PVI seminar will be given in more 
than 40 cities this year, and is open 
to any interested graphics user by 
simply contacting PVI in advance to 
reserve a place. 

According to Don Van Dyken, 


PVI's director of marketing, the 
seminar will emphasize the potential 
for increased productivity offered by 
computer graphics applications in the 
fields of business, industry, govern¬ 
ment, education, and enginering. 
Participants will be given demonstra¬ 
tions of such diverse applications as 
business graphics, computer-aided 
design, contouring, demographics, 
3-D surfaces, and electronics design. 

In addition to surveying graphics 
applications and trends, the seminar 
will present options available in com¬ 
puter graphics software and hard¬ 
ware, and define the issues a poten¬ 
tial buyer must consider when shop¬ 
ping for a graphics package. The ad¬ 
vantages of a device-independent 
package will be explored as part of a 


discussion of efforts currently under¬ 
way by standards organizations to 
establish a device-independent 
graphics standard. 

Precision Visuals, based in Boulder, 
Colorado, is a leading supplier of 
graphics software tools offering 
device, machine, and even applica¬ 
tion independence. The company's 
DI-3000 package has been installed 
at more than 400 sites worldwide. 

According to Van Dyken, seating is 
limited at the seminars, and those in¬ 
terested in attending should make 
reservations as soon as possible. For 
dates and locations of the seminars 
and registration information, contact 
Robbie Becker at Precision Visuals, 
6260 Lookout Road, Boulder, CO 
80301, (303) 530-9000. 


PEOPLE, PLACES, THINGS 


NCCS, EG&H 
INTEGRATE VSORT 


North County Computer Services, 
Inc. of Escondido, California and 
Evans Griffiths & Hart, Inc. of Lex¬ 
ington, Massachusetts announced 
that they have agreed to integrate 
OEM versions of the software 
packages VSORT and VSELECT, 
developed by Evans Griffiths & Hart, 
into NCCS's new USER-1 IV database 
package for Digital Equipment Cor¬ 
poration's VAX computer. USER-1 IV 
is the VAX version of USER-11, a 
high-performance database manage¬ 
ment system for RSTS/E and CTS-500 
operating environments, which is 
currently in use at over 200 installa¬ 


tions. It is expected that the in¬ 
creased sort speed provided by 
VSORT and the record extraction 
and reformatting capabilities provid¬ 
ed by VSELECT will significantly im¬ 
prove the performance and increase 
the capabilities of USER-11 V's 
SORT/SELECT module. 

The USER-1 IV database manage¬ 
ment system is organized in func¬ 
tional modules that are quickly com¬ 
bined and modified to implement 
many different types of applications. 
In addition to SORT/SELECT, there 
are database, report, data entry and 
modification, transfer, and program 
generation modules. USER-1 IV is ful¬ 
ly dictionary-driven to simplify the 
maintenance of applications as they 
change over time. 


VSORT, a very fast sort package for 
the VAX was released by Evans 
Griffiths & Hart in November 1982. It 
sorts fixed-length records from se¬ 
quential or relative files from three to 
seven times faster than DEC'S 
SORT-11, and also requires less disk 
space. VSELECT is a high speed 
package that extracts and optionally 
reformats records that meet user- 
supplied selection criteria. The 
package was released in March 1983. 
For further Information contact: 

North County Computer Services, 
2235 Meyer Avenue, Escondido, 
California 92025. Telephone: 
619-745-6006, or Evans Griffiths and 
Hart, Inc., 55 Waltham Street, Lex¬ 
ington, Massachusetts 02173. 
Telephone: 617-861-0670. 

. .. continued on page 84 
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CLASSIFIED 


Send Classified Ads to: RSTS Classified. P.O. Box 361. Ft. Washington. PA 19034-0361. 

5100 per word, first 12 words free with one year's subscription. [Be sure to include a phone number or address 
in your message.] 


DEC BEST VAUJES 


PRE-OWNED DEC EQUIPMENT 

SYSTEMS^CPl/s^PERIPHERALS •TERMINALS 
OPTIONS*MEMORY* COMPATIBLES 


BUYING OR SELLING CALL (305) 771-7600 


dataware 

incorporated 


1500 Northwest 62nd Street 
Suite 512 

Fort Lauderdale. FL 33309 
Telephone (305) 771-7600 


Dealers in computer equipment since 1974. 





Everything you always wanted 
/o know about RSTS but were 
afraid to ask. 

The RSTS Internals Manual 
tells all. 


REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased from 
M Systems. Inc. No other reprints are 
authorized. 

All reprints shall contain both a 
cover and a subscription blank. 

Price quotation available on request. 


Fulton Business Systems, Dallas; RSTS 
Timesharng, MCBA, Alpine Packages; Turn¬ 
key Systems. 214-934-0031 

Disposing RK05-K cartri(dges. Lawrence 
University, Box 599, Appleton, Wl 54912, 
(414) 735-6571. 


The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 
for each shirt to: 

RSTS TEE-SHIRT 
P.O. Box 361 

Ft. Washington, PA 19034-0361 

Shirts available in adults sizes only: 
Small - Medium - Ijarge - \-Large 



PAYROLL 

SYSTEM 


Tired of changing your payroll system every year? 
Hove problems paying your employees on time? 
Need better control over where your labor effort is 
going? Use PLYCOM's Payroll Package for soft¬ 
ware that is easy to use, yet effective. IrKludes 
complete support arxf excellent documentation. 
Features: 

• Easy to use menus 

• Excellent audit trail 

• Divisional & deportment reporting 

• Multi-state tax calculations 

• Event driven or exception type 

• Extensive on-line error che<king 

• Easily handles manual checks 

• Effective control cxi void or returns 

• On-line employee inquiry 

• For PDP-H's using RSTS/E 


Plyc 


cm • services, inc. 
P.O. Box 160 
Ptymoulh, IN 46563 
(219)9366121 


AUTHOR! 

AUTHOR! 

The RSTS PROFESSIONAL wants you 
to be an author! 

The RSTS PROFESSIONAL is your magj/ine. You 
can make it better by contributing articles, programs or 
comments directly to us. Our authors are paid 
honoraria tor published works, which because of their 
hard work, they deserve. We ask you to contribute, 
send us your manuscripts for possible publication (we 
(irefer machine readable tapes or floppies in PIP. 

RNO, WORD-11. or format) to: RSTS 
PROrCSSIONAL, P.O. Box Ibl. Ft. Washington. 

PA 19034-0361, Attn: Editors. Thank you. 


RSTS 

RESCUE SQUAD 

We salvage all kin(ds of (disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

• 90% success to date 

• more than 1 GB rescued to date 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
RSTS expert. 

CALL 24 HOURS 
215-542-7008 




DQDDDOD VAX/780 





Time available on VAX 11/780 system for 
VAX users who need ijcomputing time. Can 
schedule long runs. | Operator provided. 
Use your software. System includes 800/ 
1600 BPI tape drive, |, three RM03 disc 
drives, 4 MB memoryH 

II 

For more information! and our reasonable 
rate schedule contact: 




4 #vrftoiA«f com^Amr 


Horace D. Stephens 
Eng.Computer Manager 
P.O. Box 14609 
Houston, Texas 77021 
(713) 741-2200 



ARE you LOOKING FOR^SiR ? •' 
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Software 

Techniques 

Incorporated 


Want to work in a shirt 
sleeve environment? 
Advance the state of the art 
in VAX/VMS and RSTS/E? 

If you have experience in analysis 
and design using BASIC-PLUS-2 
and RMS-H, send resume and 
salary history to: 


Steve Davis 

Software Techniques, Inc. 
5242 Katella Avenue 
Suite 101 

Los Alamitos, CA 90720 


I am leaving the RSTS PROFESSIONAL for 
a warmer climate in SW New Mexico, and I 
will seek temp, contract work In the fall of 
’83. 10-1- years of DP, 5 of them in RSTS, 
mostly Basicplease ask publisher Dave 
Mallery if I’m any good. Rob Frazer, Pro¬ 
grammer at Large, c/o THE DEC PROFES¬ 
SIONAL, P.O. Box 114, Springhouse, PA 
19477. 


Buy, Sell, Trade: DEC Systems, Parts, Periph¬ 
erals. Call Paul, Digital Computer Exchange, 
Inc., 27892 Adobe Court, Hayward, CA 94542. 
(415) 886-8088. 


RSTS/E 

DATASAFE 

Tape Library System 


ONLINE 

UTILITY 

and 

TAPE 

ARCHIVE 


415-595-5595 

Sofprotej(, 

PO BOX 271, BELMONT, CA. 94002 


BACK ISSUE OFFER 
ALL 17 BACK ISSUES OF 
THE RSTS PROFESSIONAL 
$ 100.00 

Send check to: RSTS PROFESSIONAL. 
Box 361, Ft Washington, Pa. 19034-0361. 

— Payment Must Accompany Order — 


LOOKING FOR 

DEVELOPMENTTIME? 

$1 

NO KILOCORE TICK CHARGES 
NO CPU CHARGES 

RSTS E TIME 

BASIC PLUS 2 

COBOL 

BASIC PLUS ^ WITH CROSS 
> COMPILER 


PER HOUR 
CONNECT 
TIME 


PASCAL 
C 


SUPPORT 
WORD-II WORD PROCESSING 

PROGRAM 
EDITING 


WAFE 

TECO 

EOT 


} 


^BUDGEl 
BYTES' 
212 - 
v944-9230y 


'’V (Q)[iin][ji][computer™ 

1430 Broadway, New York, N.Y. 10018 


ATTENTION 

— SOFTWARE VENDORS — 

Sierra Systems Consulting is prepar¬ 
ing a Directory of RSTS software. 
Send your product literature, to: 
The RSTS Software Directory 
Sierra Systems Consulting 
3304 Springhill Road 
Lafayette, CA 94549 
415-284-1610 


11/23 

128KB FPP 18 SLOTS SMB DISK 
DLV11J RT11 LEX 11 

$6500 

11/03 

64KB EIS/FIS SMB DISK VDT LA34 

$5000 

I PDP11/60 

256KB SLU RK05 

$6500 
KOI IF 

LSI QUAD BOARD EIS/FIS 

$250 

Information Engineering 
1-617-861-1613/1555 



Classified ads are priced at $1.00 per word. 
Display ads are $35.00 per column inch, plus 
$1.00 per word. If we set. this includes 
border and 2 lines In bolder and/or larger 
type size, if desired. — please specify. 


LIST OF ADVERTISERS 

ABLE Computer . , . p.84.I.B. Cover 


ADOS .p.31 

Associated Computer 

Consultants.p. 17 

C.D. Smith & Associates .p.73 

Data Processing 

Design. Inc.B.Cover 

Dataram Corp.p. 11 

DEC, Software Services.p.15 

Diversified Business 

Systems .p.45 

DSD Corp.p.65 

Emulex Corp.p,7 

Enterprise Technology .p.73 

Evans. Griffiths 

& Hart. Inc.PP-41,67 

Finar Systems Ltd.p.59 

Gejac. Inc.p.61 

Hamilton Rentals.p.29 

Interfaces Limited .p.30 

Intersil Systems.p.25 

M Systems .p.57 

Macroman Software 

Consulting.p.SO 

McHugh, Freeman 

& Associates .p.24 

Nationwide Data Dialog .p.39 

North County Computer 

Services .I.F. Cover 

Northwest Digital 

Software, Inc.pp.42-43 

On Track Systems. Inc. . . . pp.32,53 

Oregon Software.p.23 

Personal & Professional .p.35 

Raxco.p.49 

Reliance Electric.p.19 

Ross Systems .p.1 

RSTS Professional.p.80 

Software Techniques. Inc.p.5 

Spectra Logic Corp.p.13 

Star Plan Data Procesing .... p.63 
System Performance 

House. Inc.p.9 

T.F. Hudgins & 

Associates. Inc.p.SO 

Tymshare. Inc.p.47 

UK Seminar.p.77 

Unitronix .p.71 

Virtual Microsystems.p.27 

WHY Systems. Inc.p.2 
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Another Famous First 
from ABLE 

DMA 

Line Printer 
Controller 
Gives VAX 
Users a High 
Performance 
Alternative 
to the 
DMF/32. 



The ABLE VMZ/LP 
Beats Everything 
in its Class 

Features: 

• Larger size character buffer 
(256 characters) 

• DMA transfers 

• Expanded formatting 
capabilities 

• On-board diagnostics, 

LED display 

• System software capability 

• Ease of installation 

• User friendly 

VMZ/LP ", one of the most 
advanced line printer control¬ 
lers on the market, is available 
now. Find out more about it 
and the rest of our full line of 
DEC-compatible modules. 
Write for details. 


■ 

I 

M 

1 

■I 

COMPUTER 


ABLE COMPUTER 




1732 Reynolds Avenue 
IrvMne, CA 92714 
(714) 979-7030 


CIRCLE 188 ON READER CARD 




. .. continued from page 81 


SYSTEM INDUSTRIES 
AND MASSTOR 
JOIN FORCES 


System Industries and MASSTOR 
Systems Corporation recently an¬ 
nounced an Agreement providing for 
the joint marketing and development 
of products. 

This Agreement enables System In¬ 
dustries to offer the DEC VAX mini 
and supermini-computer user storage 
capacities ranging from 160 mega¬ 
bytes through 440 giga bytes per sub¬ 
system. The products will allow large 
main frames such as CDC, IBM, 
HONEYWELL and UNIVAC real time 
access to very large on-line data 
bases in addition to the DEC VAX 
systems. MASSTOR's M860 Mass 
Storage System allows storage 
capacities ranging from 55 giga bytes 
to 440 giga bytes per system. The 
System Industries/MASSTOR local 
area networking architecture will pro¬ 
vide interconnection of up to 64 
computers over distances of one mile 
and longer distances with commer¬ 
cially available telecommunications 
services. Reliable multimegabit data 
communcations at speeds up to 50 
million bits per second is provided. 

MASSTOR designs, produces, 
markets and services very large- 
capacity (55 gigabytes or more on¬ 
line) data storage systems and high 
speed (approximately 50 megabits 
per second) general purpose local 
area and remotely-coupled data net¬ 
works. 

System Industries designs, pro¬ 
duces, markets and services large 
capacity disk systems and high per¬ 
formance tape systems for DEC and 
Data General computers. Now in its 
14th year. System Industries has over 
30,000 data storage systems installed 
worldwide. The firm is publicly held, 
traded OTC (NASDAQ symbol - 
SYSM). For information, contact 
System Industries, Inc., 

408/942-1212. 


EMULEX ANNOUNCES 
AGREEMENT WITH 
SYSTIME COMPUTERS 


Emulex Corporation recently an¬ 


nounced that it has reached agree¬ 
ment with Systime Computers 
Limited (of Leeds, England) to supply 
selected Emulex products for use in 
Systime's activity as one of Britain's 
largest computer manufacturers. 

"Systime has agreed to use 
Emulex's disk and disk/tape con¬ 
trollers and Emulex's communica¬ 
tions controllers and multiplexers for 
its PDP-11 and VAX-11 systems," 
reports James F. Martin, Emulex's 
Vice President, International Sales. 
"The products involved are Emulex's 
SC21, SC71, SC750, and V- 
Master/780 disk controllers, TCIT 
tape controllers, and CSl 1 com¬ 
munications multiplexers." 

"We're delighted that Systime has 
selected Emulex products after an ex¬ 
tensive evaluation process," stated 
Mr. Martin. 

The SC21 is a single-board, fully- 
embedded, software transparent disk 
controller that Systime will use in its 
PDP-11/44 applications. In VAX- 
11/730 applications, the SC21/V will 
be used, which consists of a hard¬ 
ware/software package developed 
and supported by Emulex. The SC71 
is, where requested, a fully embed¬ 
ded, software transparent disk con¬ 
troller designed for use with the 
PDP-11/70. 

The SC750 is a single-board, fully- 
embedded disk controller designed 
specifically for the VAX-11/750 CMI 
bus. It allows the user to mix up to 
four disk drives of varying capacities 
and media types, while maintaining 
full software transparency. The 
SC750 emulates the DEC RH750 
Massbus Adapter with RM03, RM05, 
RM80, and RP06 drives. 

The V-Master/780 is a four-board, 
fully-embedded disk or disk/tape 
controller designed specifically for 
the VAX-11/780 SBI bus. While main¬ 
taining full software transparency, it 
allows the user to mix up to eight 
disk drives or four disk drives and 
four tape drives — all of varying 
capacities and media types. 

Emulex, headquartered in Costa 
Mesa, California, designs, manufac¬ 
tures, and markets disk and tape con¬ 
trollers, communications controllers 
and multiplexers, and mass storage 
peripheral subsystems for mini- and 
micro- computers manufactured by 
Digital Equipment Corporation. m 
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If you’re in the market for 
communications modules, 
make the ABLE connection now. 

And join the thousands who 

already have. 



We are known as the innovators. Most of our 
products are industry "firsts” which become 
popular quickly, then settle into a stage 
of steady long-term acceptance. These four 
DEC-compatible, communications devices fit 
the pattern perfectly. They are ABLE orig¬ 
inals. They achieved instant success world¬ 
wide. They provide top performance. And 
they are very reliable. Read on to find the 
one for you. 

INCREASED VAX THROUGHPUT. 

Here’s an asynchro¬ 
nous microcontroller 
with programmable 
DMA, fully transpar¬ 
ent to VAX/VMS as 
two 8-line DMF 32’s 
and contained on a 
single board. Priced 
below the DZll-E, it outperforms DZ or DH 
devices under VMS v.3, has interrupt-driven 
modem control on every line, and includes an 
output throttle which lets peripheral devices 
optimize their own data rate. 

#1 UNIBUS DMA. 

Then there’s our 
DH/DM, the original 
multiplexer which 
puts 16 lines with 
modem control on 
a single board. This 
popular device meets 
UNIX VAX system 
needs for DMA communications require¬ 
ments, serves UNIBUS systems equally well, 
and beats them all for MTBF, throughput and 


ABLE VMZ/32" 
IS-line DMF/32 subset 



ABLE DH/DM “ 

16-line combination DHll 
& DMU replacement 



price. Other features include on-board diag¬ 
nostics, modem control on all lines, superior 
on-board silo depth and variable prom-set. 
SYNC/ASYNC FLEXIBILITY. 

A controller for 
the PDP-11 user, the 
DV/16 contributes 
microprocessor- 
derived flexibility, 
which permits mix- 

ABLE DV /16 “ ing of sync and async 

16-lme DVU replacement j-Combinations 

of 4 or 8 lines with modem control and full 
system software compatibility. It takes less 
than half the space of a DVll and uses word 
transfer instead of byte DMA to gain a 2 to 
1 speed advantage or permit operation in half 
the bandwidth required for data transfers. 
Q-BUS DMA. 

The Q/DH is an asynchro¬ 
nous controller which 
makes DH-class perform¬ 
ance possible on PDP-11/23 
and LSI-11/23 Q-BUS 
systems. It connects the 
standard Q-BUS to as 
many as 16 async lines 
with DMA output capabil¬ 
ities and allows optimum Q-BUS utilization. 
Features include software compatibility with 
RSTS/E and RSX operating systems, large 
input silo, modem control on all lines. 

Write for details on our complete line of 
DEC-compatible products. Be on the lookout 
for exciting new ABLE communications 
products soon to come. 



ABLE Q/DH“ 

8 or 16-line DH/DM 
for Q-BUS 


For Immediate, Ibll-Free Information, Dial 800 332 ABLE. 


m 


CORPORATE OFFICES 
Li ^ ABLE COMPUTER 

S f r.fijTj J.S 1732 Reynolds Avenue 

Irvine, CA 92714 • (714) 979-7030 


NATIONAL OFFICES 
Burlington, MA (617) 272-1330 
Irvine, CA (714) 979-7030 


INTERNATIONAL OFFICES 

Canada (Toronto) (416) 270-8086 
England (Newbury) (0635) 32125 
W. Germany (Munich) 089/463080 


DEC, PDP, UNIBUS, Q-BUS, LSI, VAX and VMS are trademarks of Digital Equipment Corporation. 
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IB Graph for DEC users. 

The most cost-effective wsq' to get in touch 

with your data. 


Meet the latest Used Software 
package from Data Processing 
Design, Inc. It’s called IB Graph™ 
Nothing less than the most com¬ 
plete, most cost-effective system 
for business graphics on Digital 
PDP-11™ and VAX™ processors. 

Of course, you could buy 
more expensive graphics soft¬ 
ware, but you’d probably end 
up with more capabilities than 
you’d actually need—which 
wouldn’t be cost-effective. Or 
you could buy less expensive 
graphics software, that simply 
can’t do the job. Again, not very 
cost-effective. IB Graph is the 
ideal compromise, giving you 
literally everything you need, 
and no more. 


IB Graph is a multi-user, 
interactive businss graphics 
system that lets you generate 
graphs in minutes instead of 
days. And get quality, full-color 
bar charts, line charts, or pie 
charts for immediate publication 
or presentation. With IB Graph, 
you can better visualize and 
analyze your data. You can make 
quicker decisions and increase 
your efficiency—not to mention 
your company’s profits. Best 
of all, IB Graph is easy to learn 
and simple to use, whether you 
have no experience in com¬ 
puters at all, or are an experi¬ 
enced programmer. 

IB Graph outputs to a vari¬ 
ety of graphic CRTs and plotting 


devices. And it will continue to 
be compatible with future hard¬ 
ware announcements by DEC. 

If you’d like more informa¬ 
tion, call or write to us at DPD. 
We’ll be happy to tell you more 
about IB Graph. 

IB Graph. You can buy a 
more expensive system. Or a 
less effective one. 

You can’t buy a better one. 




Data Processing Design, Inc. 


ICOMPUTWOCSTMUIOR 


CORPORATE OFFICE • 181W Orangethorpe, Suite F • PlacenUa, CA 92670 • 714-993-4160 Telex 182-278 

PDP-11, and VAX are registered trademarks of Digital Equipment Corporation. IB Graph is a registered trademark of Data Processing Design, Inc. 

CIRCLE 59 ON READER CARD 



















































